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内 容 提 要 
本 书 是 在 {BASIC 语言 3 一 书 〈 科 学 普及 出 版 社 出 版 ) 的 基础 上 重 

写 的 一 本 介绍 BASIC 程序 设计 的 教材 ， 供 高 等 院 校 非 计 算 机 专业 人 员 - 
FI, ШКЕ. ТИН ЕЕЕ ЖЕН ИНЕ ИЕГИ ЕЕ ЖИЫ. SAL 
关 团体 和 企 事业 单位 的 在 职工 作者 ， 凡 具有 高 中 马上 文化 程度 者 ， 均 
可 待 以 学 习 计 算 机 知识 。 本 书 是 湾 照 “程序 一 算法 十 数据 结构 十 结构 
化 程 冶 设 计 方法 十 计算 机 语言 ”的 公式 组 织 教材 体系 的 ， 六 而 内 容 宕 
KARERE 例题 冬 多 且 切 合 应 用 实际 . 其 特点 是 突出 算法 设计 ， 采 
肥 结 构 化 程序 设计 方法 编写 椎 序 , 运用 了 结构 化 流程 页 (N— S Il), + 
现 了 科学 性 、 先 进 性 和 通俗 性 的 统一 ,是 一 太 新 的 学 习 BASIC 语言 程 
序 设计 的 好 教材 。 
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共和 学 技术 发 展 的 角度 ， 可 以 认为 人 类 已 经 跨 入 信息 和 计算 机 时 代 。 计算 机 的 应 用 ， 已 
有 从 科学 家 的 实验 室 步 入 生产 领域 、 交 换 领域 、 管 理 领域 ， 直 至 家 庭 生活 领域 ， 从 宏观 的 宇宙 
航天 事业 到 微观 的 分 子 研 究 ， 几 乎 无 处 不 有 计算 机 的 存在 ， 并 且 它 的 发 展 正 以 等 比 级 数 的 速 
度 向 前 推进 。 普 及 计算 机 知识 ， 全 面 推广 计算 机 的 应 用 ， 不 论 人 们 主观 意向 如 何 ， 业 已 成 为 
历史 的 必然 趋势 。 

要 学 习 计 算 机 知识 和 掌握 计算 机 的 应 用 , 一 般 说 都 要 学 习 和 掌握 计算 机 语言 .BASIC 语言 
是 一 种 国内 外 广泛 流行 的 计算 机 高 级 证言， 它 易于 学 习 ， 易 于 掌握 ， 又 有 实际 使 用 价值 ， 在 
广大 初学 者 之 中 得 到 广泛 推广 , 受到 热烈 欢迎 .近年 来 我 属 已 有 近 1000 万 入 学 习 了 BASIC 语 
言 ， 其 中 不 少 人 在 掌握 了 BASIC 语言 之 后 编制 了 一 些 能 供 实际 使 用 的 应 用 程序 ， 解 决 了 一 些 
实际 问题 。 不 少 入 以 学 习 BASIC 语言 为 起 点 不 断 提高 ， 迈 入 了 计算 机 应 用 领域 。 事 实 已 经 说 
明 ，BASIC 语言 在 我 国 计 算 机 普及 和 计算 机 应 用 中 起 了 重要 的 作用 ， 并 将 继续 发 挥 其 作用 。 

1980 年 ， 我 和 田 淑 清 、 谢 锡 迎 同志 合 编 的 《BASIC 语言 》( 科 学 普及 出 版 社 出 版 ) 一 书 ， 
由 于 写法 通俗 易 懂 , 符合 初学 者 特点 , 受到 广大 读者 的 欢 速 ，9 年 内 修订 三 次 , 重印 30 多 次 ， 
累计 印 数 已 超过 700 万 册 * 创 电子 和 计算 机 类 书籍 发 行 量 的 世界 记录 , 获得 了 新 闻 出 级 团 、 中 
国 科 协 、 广 播 电影 电视 部 等 单位 癸 发 的 优秀 科普 图 书 奖 。 攻 内 外 许多 专家 对 此 给 予 充 分 肯定 
和 很 离 的 评价 。 对 此 ， 我 们 表示 囊 心 的 感谢 。 

出 于 计算 机 科学 技术 发 展 很 快 ， 尤 其 是 结构 化 程序 设计 方法 的 提出 ， 有 必要 重 谢 编写 一 
本 BASIC 程序 设计 的 教材 ， 以 满足 实际 使 用 中 的 需要 , 在 近年 召开 的 几 次 学 术 会 议 上 不 少 同 
志 也 野 切 地 表示 了 这 个 愿 刻 ， 希 望 我 能 尽快 地 重 写 出 一 本 书 ， 以 推动 计算 机 语言 教学 的 进 一 
步 深入 和 提高 。 我 在 多 年 级 学 实践 基础 上 ， 广 泛 吸 取 了 国内 外 同类 书籍 的 有 益 经 险 ， 经 过 反 
AURES, 根据 区 内 高 等 学 校 非 计算 专业 的 实际 状况 和 要 求 ， 重 新 拟订 了 大 网 ， 线 于 在 90 
年 春节 之 夜 ， 最 后 完成 了 本 书 的 全 部 编写 工作 .。 

一 般 说 程序 是 算法 、 数 据 结构 、 结 构 化 程序 设计 方法 和 计算 机 语言 这 四 个 因素 结合 的 产 
物 ， 可 以 用 “程序 一 算法 十 数据 结构 十 结 梅 化 程序 设计 方法 十 计算 机 语言 ” 这 一 公式 来 表达 。 
离开 计算 机 语言 就 谈 不 上 程序 设计 ， 要 编写 程序 就 必须 热 练 地 掌握 一 种 计算 机 语言 、 但 是 语 
言 只 是 一 种 用 来 描述 算法 的 工具 ,算法 设计 是 程序 的 核心 。 因 此 本 书 不 把 重点 放 在 介绍 BASIC 
语言 的 语法 规则 上 . 那样 将 是 枯燥 无 味 醒 且 将 成 为 无 源 之 水 ,学 了 语言 后 仍 不 会 编写 程序 . 本 
书 突出 算法 设计 ， 使 读者 能 够 学 到 在 硬 到 一 个 问题 以 后 怎样 去 构思 解雇 问题 的 步 驴 。 程 序 处 
至 的 对 家 是 数据 ， 因 此 要 研究 数据 的 属性 和 孝 据 间 的 联系 ， 这 就 是 数据 结构 。 采 用 不 同 的 数 
据 结构 会 有 不 同 的 算法 , 本 书 对 数据 结构 也 给 以 必要 的 重税 , 把 它 和 算法 结合 在 一 起 研究 .在 
编程 方法 上 本 书 全 部 采用 结构 化 程序 的 方法 , RA N —5 结构 化 流程 图 ( 书 中 对 N-S 图 作 了 
一 定 的 补充 和 发 展 )， 以 帮助 读者 从 开始 学 习 计算 机 程序 设计 时 就 养 成 一 种 良好 的 风格 和 习 
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惯 。 我 们 认为 本 书 的 特点 和 体系 是 符合 广大 读者 需要 的 .本 书 内 容 充 实 ， 有 - - 定 的 深度 ， 在 
学 习 完 本 书后 能 够 编写 出 一 般 的 BASIC 程序 。 

我 们 认为 对 计算 机 的 禄 学 者 和 高 等 学 校 中 非 计算 机 专业 学 生来 说 ， 学 习 计 算 机 知识 欧 司 
的 在 于 应 用 . 要 在 有 限 的 时 间 内 学 习 到 有 关 的 基本 概念 和 初步 掌握 应 用 计算 机 的 能 力 。 天 能 
照 沐 计算 机 专业 教材 的 内 容 、 体 系 和 方法 。 我 们 编写 教材 的 原则 是 ;“ 实 用 、 新 颖 、 清 蜥 、 挝 
恰 、 层 次 ”， 娩 实用 性 强 、 内 容 新 颖 、 概 念 清晰 、 通 俗 易 懂 、 层 次 瑟 套 。 我 们 认为 ,教材 不 汉 
是 屯 具 体 的 知识 传播 给 读者 ， 更 重要 的 是 如 何 组 织 教材 体系 ， 如 何 使 读者 易于 理解 ， 循 译 渐 
进 、 便 于 自学 。 写 书 和 讲 译 都 要 研究 读者 和 学 生 的 认识 视 律 ， 研 究 心理 学 ， 这 点 对 计算 机 的 
初学 者 克 为 重要 。 本 书 的 氢 述 力求 通俗 易 慌 ， 把 难点 分 解 ， 使 台阶 变 小 ， 相 售 二 书 会 吸引 赎 
者 兴趣 盘 然 地 进入 计算 机 的 天 地 。 

本 书 的 叙述 不 从 规则 、 定 义 、 枝 念 出 发 , 而 是 从 具体 问题 入 手 , 担 出 问题 , 分 析 问 题 , 讨 
论 解决 问题 的 方法 ， 最 后 引出 规律 和 绪论。 根据 我 们 约 经 验 ， 这 种 万 法 是 有 效 的 、 事 半 巷 培 
欧 ， 定 能 受 广 大 读者 欢迎 。 

由 于 BASIC 的 版 去 很 多 ， 在 一 桔 书 内 不 可 能 也 不 必要 介绍 所 有 的 BASIC 版 本 。 我 们 选择 
目前 在 世界 上 使 用 最 广泛 的 MS - BASIC (Microsoft BASIC, 或 称 MBASIC) 为 语言 背景 , CHE 
在 长 城 0S206, 1BM - PC, 浪潮 0520. 王 安 PC，APPLE 了 ( 需 加 280 播 板 , 并 在 CP/M 操作 系 
HET), ALTOS 等 多 种 计算 机 系统 上 运行 ， 功 能 比较 强 。 它 虽然 不 是 真正 的 结构 化 语言 ， 
但 己 拔 有 结构 化 的 语句 ， 可 以 利用 它 进 行 结构 化 程序 设计 . 我 们 认为 这 是 符合 我 国 目前 情况 
的 。 考 虑 到 BASIC Ё ЯЙ А, Jonn G Kemeny 和 P. J. Plauger 己 经 根据 美国 拳 的 BASIC 标准 提 
出 了 True BASIC (但 在 我 国 目前 运 未 普遍 党 用 》, 为 了 使 潜 者 在 以 后 使 用 它 不 致 感到 陌生 利 困 
Ж. 在 本 书 第 十 四 章 对 True BASIC 作 了 简要 介绍 。 尽 管 BASIC 的 版 本 多 , 不 赔 的 计算 机 系统 
上 使 用 车 不 同 的 BASIC 版 本 , 但 它们 是 大 同 小 异 的 , 不 同系 统 上 所 用 的 BASIC 的 基本 部 分 是 
相 宫 的 ,在 学 习 一 种 BASIC 之 后 ,很 容易 举一反三 ,通过 自学 或 查阅 资料 很 快 地 掌握 其 它 版 
本 的 BASIC 语言 , 虽然 本 书 以 MS - BASIC 为 语音 背景 , 但 它 是 一 本 通用 的 教材 。 WEAS 
用 的 计算 机 系统 不 能 得 用 MS - BASIC， 只 需 参 考 有 关 资 料 作 一 些 补充 或 修改 即 可 。 由 于 本 书 
重点 不 在 介绍 BASIC 语法 .因此 这 个 问题 不 会 成 为 学 习 本 书 的 障碍 。 

本 课程 不 是 一 门 纯 理论 性 的 课程 , 而 是 一 门 实践 性 很 强 的 课程 ,学习 的 目的 在 于 序 用 ,在 
学 习 本 课程 时 应 当 特 别 注意 培 闫 独立 的 编程 序 的 能 力 和 上 机 调试 私 序 的 能 力 。 一 般 应 保证 不 
分 于 20 一 30 小 时 的 上 机 练习 外 癌 。 

在 本 书 的 前 十 二 章 中 没有 包括 有 关 高 等 数学 知识 的 内 容 ， 具 有 高 中 毕业 文化 程度 的 读者 
都 能 掌握 。 在 第 十 三 章 中 介绍 了 常用 算法 程序 举例 ， 包 括 了 一 些 比较 复杂 的 算法 ， 其 中 有 些 
需要 有 高 等 数学 的 知识 , 读者 可 以 根据 不 同情 况 选 学 第 十 三 章 的 内 容 。 在 学 习 前 面 各 章 时 ,可 
以 及 第 十 三 牵 远 择 … 些 例题 结合 学 习 ， 不 一 定 等 到 学 完 第 十 二 章 才 学 习 第 十 三 章 。 

本 书 的 例题 校 多 。 但 是 庶 当 说 明 ， 这 些 程 字 只 是 为 了 帮助 读者 具体 地 理解 各 章 中 所 毅 述 
的 内 容 ， 从 教学 的 角度 介绍 的 不 序 异 子 。 这 些 程序 的 编写 太 法 不 是 唯一 的 ， 甚至 不 一 定 是 最 
好 的 。 为 了 节约 篇 幅 : 程序 中 使 用 注释 语句 不 多 . 读者 在 学 完 本 书后 ， 完 全 有 可 能 对 本 书 的 
程序 作 一 定 的 补充 、 履 改 秆 完善 。 

为 了 后 助 读者 学 习 , 拟 编 写 出 版 《BASIC 程序 设计 习题 集 与 上 机 指导 ?， 内容 包括 本 书 各 
章 重点 和 难点 讲解 、 补 充 例题 和 本 二 各 章 习题 参考 解答 以 及 在 凡 囊 常用 的 计算 机 系统 上 寻 何 
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应 当 涪 明 , 学 习 BASIC 程序 设计 只 是 学 习 计 算 机 知识 的 入 门 。 个 要 认为 学 了 BASIC RF 
会 编 与 一 些 简单 的 程序 就 等 于 “党 会 了 计算 机 ”上 了。 计算 机 科学 技术 浩 如 潮 海 、 包 含 许多 分 
支 学 科 ， 内 容 十 分 丰富 。 学 习 BASIC 只 是 入 门 的 第 一 步 ， 即 使 是 竹 序 设计 庶 言 ， 世 界 -常生 
BEAJ ph. S- -种 计算 机 语 训 部 有 自己 的 应 用 领域 。 它们 是 互相 补充 而 不 是 豆 相 涯 斥 的 。 
APRE BASIC 语言 之 后 ， 站 需要 时 肯 进 - 步 学 习 其 它 计 算 机 语音 是 不 会 太 困难 的 -。 

让 书 只 是 初步 介绍 程序 设计 的 刘 识 ， 在 学 习 太 书 之 后 应 当 进 -- 步 但 高 ， 尤 其 埠 需 要 通过 
关 习 和 掌握 结 多 化 程序 设 症 方法、 总 上 巧 杆 风格。 我 们 建议 在 学 完 本 课 态 与、 安排 一 
次 大 作业 ， 完 成 具有 一 定 规 模 ( 约 200 行 左 右 ) 区 程序 设计 。 为 了 克 助 读者 进一步 学 习 结构 
化 程序 设计 知识 . 拟 编写 一 本 《“ 实 月 程序 设计 % 作为 本 书 的 参考 书 或 后 续 用 书 , 仍 出 中 国 科 
学 技术 出 版 社 出 版 。 

参加 本 书 编写 的 还 有 上 海 二 业 大 学 卜 家 赎 老 师 和 清华 大 学 谭 恩 兹 老师 。 卜 家 岐 老师 编写 
了 本 书 的 第 九 、 十 一 、 十 四 章 和 第 十 二 章 的 最 后 二 节 。 谭 恩 苛 老师 编 当 第 七 、 八 亲 。 谭 浩 强 
编写 一 、 二 、 =Z. 四 、 五, 六, 十 ,十 二 @ 、 十 二 章 ， 并 负责 全 书 的 组 织 、 修 改 、 
统 稿 和 审定 。 终 燕 、 薛 淑 奔 癌 志和 参加 了 部 分 冬 序 的 调试 工作 ,中国 计算 机 学 会 和 爹 司 高 等 学 
校 计算 机 基础 教育 癸 究 会 对 BASIC 诸 言 的 推广 以 及 去 书 的 编写 工作 给 予 了 很 大 的 文 持 . 许多 
专家 和 高 校 的 教师 多 年 来 对 我 们 的 工作 给 予 很 多 竟 关 心 和 帮助 、5 大 渎 阁 纵 了 我 们 极 坟 的 鼓 
焉 。 中 国 科学 技术 出 版 朱 桂 兰 剧 顷 审 以 极 大 的 热 沈 有 效 地 组 织 了 本 书 的 出 县 工作， 使 本 书 得 
以 在 很 短 的 时 间 内 出 版 ， 在 此 ， 一 并 表示 由衷 的 感谢 ， 
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系 .后 转 白 动 控制 系 、1958 年 毕业 , 大 学 毕业 后 . ШКЕТ. 。1956 年 至 1959 年 
被 浅 为 清华 大 学 学 生 会 主席 ”并 担任 北京 市 渗 联 三 主 席 和 全 国学 联 执 行 委员 会 
ER. 1957 年 2 月 ， 他 作为 全 国学 联 代表 之 “、 曾 受到 毛泽东 、 周 恩 来 、 朱 德 
和 刘少奇 等 党 机 国 家 领导 人 的 授 见 、1958 全 被 选 为 第 二 届 北 京 市 人 民 代 表 大 会 
A. 1958 E8 月 曾 作为 中 国学 生 代表 团 成 员 之 一 ,参加 了 第 五 届 辕 际 学 联 代 
кё 

1960 年 8 В. ЕН. PRIRA “lb ГУРАН) Г". ШЕТ АТС МАКАР 
会 ”作为 一 名 优 药 的 共 者 团 工 作 千 部 . 由 他 执笔 把 写 的 一 些 有 关 学 生 工作 经 验 的 总 结 材料 曾 受 到 有 头领 导 部 
DERF. PERAE LERN CRER frii 

长 期 从 出 青 生 学 咎 江 作 ， 俩 业 对 学 生 的 思想 感情 、 兴 仍 爱 好 、 理 想 追 求 以 及 实际 闫 要 都 有 深刻 的 灿 察 与 
理解 ,时 而 能 在 棚 年 学 后 中 间 卓 有 成效 地 进行 工作 并 取得 优异 的 成 绩 ， 足 当时 青年 学 牛 团 体 中 内 如 瑟 定 影 响 
闻 人 人 物 ， 这 种 影响 却 使 他 全 “十 第 党 动 ” 中 受到 不 公正 的 待遇 ， 受 批判 审 宫 、 下 放 劳 动 从 达 6 千 之 

粉 雄 " 四 人 人 玫 “ 后 ,作者 在 清 毕 大 学 除 继续 手 任 一 定 的 党 政工 作 外 ,1979 {ЖЕ Ж Ж ИНИ МЕ Ж 
AA. Во 年 代 杞 是 中国 计算机 应 十 的 起 小 时 代 . 在 这 “时代 到 来 之 际 , 作 者 能 以 其 敏锐 的 预 往 、 惊 / 3780 1) u 
潜心 治学 的 精神 ,在 担任 迪生 的 工作 的 情 哆 上 ,及 时 投入 计算 机 的 基础 教育 工作 并 很 快 成 为 这 方 左 的 公家. 实 
为 难能可贵 ，80 年 代 避 他 就 较 香 地 在 涯 华 大 学 为 上 于 名 教师 和 研究 生 讲授 了 计算 机 语言 课 ,并 休 中 央 电 视 全 
йр ЖЗ WK ERHET BASK .FORTRAN „СОВО. 和 PASCAL 四 种 计算 机 语言 . 收 学 人 数 超过 100 1) A 
作者 的 这 些 教学 活动 .对 捧 动 我 图 计 鼻 机 语 半 的 将 及 教育 ,可 说 足 作 出 了 重要 的 并 具有 开创 性 的 让 献 

1980 年 以 来 ,人 在 从 市 普及 计 邹 机 语 兰 教育 的 同时 , 作者 本 人 或 与 他 人 合作 编写 了 40 ААР se. r s 
ИШЕНИ R SA h. 1200 AF. RINLE. RITET 00079. Kip. ЕНК. WW D Ti 
并 由 科 字 普及 出 版 社 出 4BASIC 语言 ?一 妆 , A 1980 年 出 版 以 来 , 已 再 版 、 重 印 30 多 次 . ЖК го 
万 妈 ， 记 电子 合计 由 机 类 图 书 发 行 量 的 世界 记录 、 受 到 中 国 乱 协 、 新 闻 出 版 署 和 广播 电影 电视 部 等 俩 导 部 ? 
HREL. PERR TRENEREM- E t. (FORTRAN 语言 (ШӘ, ПШ 
Жо Q. COBOL 语言 4 DARRE Шун, Жїт 110 万 和 70 万 册 , 发 行 量 都 居 全 二 同类 医书 区 的 全 
这 些 有 闫 计算 栅 程 学 设计 语 证 教 堵 . EP KK fikri. Й нЕ 

1986 年 11 РАТУЕ 如 下 的 国际 地 区 性 小 算 宙 教育 会 议 , 邦 会议 上 作者 言 读 .他 所 所 全 
ш азе маа 文 受到 与 会 者 的 重视 。1986 E, ЗРНА 
等 区. 198% 年 他 被 北京 市 人民 上 政府 报 对 “有 突出 贡献 专家 ”的 称号 . 1990 年 、 经 中 国 科普 作家 协会 第 кА, 
жк ш. Ку азе тын Ж” 

1885 年 日 。 源 浩 蝇 教授 调 均 清华 大 学 .接任 现职 一 ДОВ AE SEE ЕРЕК. ЖЕҢИЛЕ} А 
挑 ” 的 方向 、 在 担负 兹 重 的 学 校 行政 工作 的 同时 ， 仍 坚 竺 从 事 计算 机 的 教学 工作 ， 上 述 许多 教学 活动 和 编 普 
教材 的 工作 就 足 茸 相 任 身 功 化 学 院 筑 导 上 你 期 间 进 行 的 。 本 书 便 是 在 这 种 情况 下 作者 推出 的 新 作 

翘 借 本 世 出 版 之 机 ， 和 将 谭 洗 强 教授 简要 经 历 向 读者 你 一 介绍 


中 国 科学 技术 出 版 社 
1990 年 5 月 
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第 一 章 ”关于 计算 机 的 一 般 知识 


$ 电子 计算 机 的 特点 和 用 途 


电子 计算 机 的 出 现 旺 人 类 生产 发 展 的 必然 产物 ,是 现代 科学 技术 的 重要 标志 。 自 1946 年 
产生 世界 上 第 一 台电 子 计 算 机 ЕМАС 以 来 ,计算 机 的 生产 .研究 和 应 用 以 迅猛 的 速度 发 展 着 。 
现在 ,电子 计算 机 已 渗入 到 人 类 生产 和 生活 中 的 几乎 一 切 领域 ,可 以 说 ,没有 电子 计算 机 就 谈 
不 上 现代 化 。 史 于 计算 机 的 知识 应 当成 为 当代 知识 分 子 的 知识 结构 中 的 不 可 缺少 的 重要 组 成 
部 分 。 - 

电子 计算 机 具有 以 下 特点 。 

(1) 运 算 速度 快 。 巨 型 机 的 运算 速度 已 达 每 秒 几 十 亿 次 ,是 传统 计算 工具 (如 算盘 .计算 尺 、 
手 据 计 算 机 等 ) 所 不 能 比拟 的 。 

(2) 精 确 度 高 。 计 算 机 能 提供 十 几 位 以 上 的 有 效 数字 。 

(3) 具 有 “记忆 "和 逻辑 判断 能 力 。 它 能 把 计算 步骤 ,原始 数据 ,运算 结果 存 迪 在 计算 机 内 ， 
这 是 电子 计算 机 与 其 它 计 算 装置 的 一 个 重要 区 别 . 计 算 机 还 能 进行 于 辑 判断 ,并 根据 判断 结果 
自动 决定 以 后 执行 的 命令 。 

(4 计算机 内 部 的 操作 运算 ,都 是 在 程序 的 控制 下 自动 完成 的 ,人 可 不 必 进 行 干预 。 

概括 地 说 ,电子 计算 机 是 一 个 以 高 速 进 行 操作 ` 具 有 内 部 存 贮 能 力 、 由 程序 控制 操作 过 程 
的 自动 电子 装置 。 

电子 计算 机 的 用 途 十 分 广泛 , 据 估计 ,应 用 计算 机 的 领域 已 超过 5000 个 ,概括 起 来 ,可 以 
分 为 以 下 几 大 类 。 

《1) 数 值 计 算 , 或 称 科学 计算 。 例 如 工程 设计 ,天 气 预报 ,地 震 预 测 等 。1948 年 ,美国 原子 能 
研究 中 有 一 项 计划 ,要 做 900 万 道 运算 ,需要 由 1500 名 工程 师 计 算 一 年 。 当 时 利用 了 一 台 初 
期 的 计算 机 ,只 用 了 150 小 时 就 完成 了 。 有 入 估计 ,美国 现 有 电子 计算 机 所 完成 的 工作 量 ,如 
果 用 人 工 , 需 要 4000 亿 个 人 才能 够 完成 。 ` 

早 在 1671 年 ,德国 数学 家 莱 布 尼 效 说 过 :“ 让 一 些 杰出 的 人 才 象 奴隶 般 地 把 时 间 浪 费 在 计 
算 上 是 不 值得 的 .” 他 汤 望 有 朝 一 日 能 有 计算 机 把 科学 家 从 这 种 奴隶 般 的 计算 中 解放 出 来 ,这 
个 愿望 现在 实现 了 。 

(2) 数 据 处 理 , 或 称 信息 处 理 计 算 机 不 仅 能 高 速 地 进行 数值 计算 ,而 且 能 对 大 量 的 数据 进 
行 有 效 的 加 工 和 处 理 ( 如 分 类 .排序 ,变换 ,检索 、 制 表 等 )。 例 如 ,工农 业 计划 的 制订 .人 只 统计 
处 理 ,企业 经 济 管理 .银行 业务 ,预订 机 票 ,档案 管理 ,图 书 检索 ,学 籍 管 理 , 编 辑 排版 ,卫星 图 象 
分 析 等 等 。 

(3) 过 程控 制 , 或 称 实时 控制 ,计算 机 能 及 时 采集 检测 数据 , 按 最 优 方案 实现 自动 控制 。 例 
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Imp ЖЕНИ ЖӨИ ‚ЕЛЕ ПЗЕ ЖАЙ СЕЛТИИП SR. ЗРЯЛА еН В 
化 .大 大 提高 了 生产 效率 和 产品 质量 ,大 大 节约 了 劳动 力 。 

(4 计算 机 辅助 设计 ,简称 CAD (Computer Aided Design) 。 用 计算 机 辅助 人 们 进行 说 计 工 
作 , 如 设计 飞机 、 房 屋 , 服 装 、 集 成 电路 等 .使 设计 工作 自动 化 或 半自动 化 。 近 年 来 还 发 展 了 * 计 
算 机 辅助 制造 "简称 CAM, Computer Aided Manufacture) ,实现 无 图 纸 加 工 。 

计算 机 辅助 教学 (简称 САТ, Computer Aided Institute) ,是 利用 计算 机 米 辅助 进行 教学 ,把 
教学 内 容 编 成 “ 谨 件 ”, 学 生 可 以 恨 据 自己 的 程度 选择 不 同 内 容 , 吕 使 教学 内 容 多 样 化 ,形象 化 . 
EFATHA. RICH СА! 的 研究 和 村 发 , 

(5) 人 工 智能 。 这 是 计算 机 应 用 的 新 领域 。 主 要 全 究 如 何 用 计算 机 米 * 模 仿 * 人 的 智能 ,也 
就 是 使 计算 机 只 有 “推理 和“ 学习" 的 功能 .例如 ,计算 机 辅助 诊断 就 是 模拟 医 咎 看病. 计算 杞 
可 以 开 药 方 写 假 条 ;计算 机 还 可 以 上 棋 , 作 曲 、 翻 译 ,机 器 人 和 机 械 手 可 以 完成 人 们 难以 完成 的 
操作 。 人 工 智 能 应 用 的 前 景 十 分 广阔 ， 
计算 机 问世 初期 ,主要 应 用 于 数值 计算 “计算 机 ?也 因而 得 名 .现在 ,计算 机 在 非 数 值 运 和 
方面 的 应 用 远 远 超过 亦 数 值 运算 方面 的 应用。 其 实 , 计 算 机 的 各 字 称 为 "信息 处 理 机 ?更 为 确 
切 。 也 有 人 称 之 为 “电脑 ”, 意 为 人 脑 的 “延长 ”。 


{12 电子 计算 机 的 基本 结构 


计算 机 算 题 的 过 程 和 人 利用 算盘 算 题 券 不 多 ,只 要 知道 算盘 是 怎样 算 题 的 ,就 可 以 备 得 计 
算 机 的 算 题 过 程 和 它 的 基本 结构 。 

(一 ) 利 用 算盘 算 题 的 步骤 和 需要 的 设备 

如 果 我 们 要 计算 86 一 25X3= ? 要 经 过 几 个 步骤。 

中 根据 给 定 的 题 日 想 好 计算 方法 和 计算 步 台 ,并 把 计算 公式 ,计算 步 驴 、 原 始 数据 等 写 在 
ЖЕ. ERAT: 

计算 公式 是 :A 一 BXC=D; 

计算 步骤 是 ; 先 算 BXC, 再 算 A 一 BXC; 

原始 数据 旦 :人 二 86 ,B= 25,C=3。 

@ 在 算盘 上 进行 计算 ,规则 是 先 乘除 .后 加 减 。 先 算 25X 3 二 75, 我 们 把 这 中 间 结 果 75 号 
在 纸 上 以 备 调 用 。 然 后 在 算盘 上 拨 上 86, 再 做 减法 ,86 一 75 二 11。 

转 把 最 后 结果 11 记录 在 纸 上 。 

到 此 全 部 结束 。 

扩 芋 面 可 以 看 出 :要 完成 这 一 道 题 日 ,必须 只 有 : 

了 ) 能 进行 运算 的 装置 , 即 算盘 。 

2) 能 存放 题目 ,计算 步骤 ,原始 数据 ,中 间 结 果 和 最 后 结果 的 装 览 , 即 纸 瀛 。 在 站 个 计算 过 
程 中 ,把 需要 记录 的 数据 都 “ 记 存 ?在 纸 上 , 需 要 “到 出 ”时 再 按 纸 上 的 数值 氢 到 算盘 上 

3) 进 行 控 制 的 装置 。 上 述 计 算 都 是 在 人 脑 的 操纵 下 进行 的 ,由 手 去 执行 。 

(二 ) 计 算 机 解 题记 需 的 设备 

电子 计算 机 的 计算 过 程 与 算盘 相仿 , 只 是 它 由 机 器 代替 人 .因此 ,和 用 算盘 算 题 -- 样 ,必须 
具备 几 种 设备 。 
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OD 运算 器 。 进 行 运算 ,相当 于 算盘 。 

名 计算 机 必须 能 保存 和 记录 原始 数据 ,运算 步骤 .以 及 中 间 结 果 。 也 就 是 说 需要 “记忆 装 
置 ” 即 存 贮 器 。 它 相当 于 纸 和 笔 。 

图 计算 机 票 有 一 个 代替 人 的 脑 和 手 的 作用 ,支配 机 器 进行 自动 控制 的 控制 器, 它 是 计算 机 
的 “神经 中 枢 ”。 由 它 统一 指控 和 控制 计算 机 各 部 分 的 联系 。 秽 如 上 例 中 从 纸 上 “ 取 ”个 数据 
到 算盘 上 ,和 把 结果 “ 存 ? 到 纸 上 , 是 由 人 脑 和 手 完成 的 ,而 在 计算 机 中 则 全 由 控制 器 发 出 命令 ， 
什么 时 候 取 数 ,从 什么 地 方 取 数 , 送 到 什么 地 方 ,进行 什么 运算 , 算 完 后 的 结果 送 到 哪里 等 等 。 

全 输入 和 输出 设备 。 如 果 只 上 月 上 述 三 种 设备 ,计算 机 还 不 能 工作 。 因 为 要 算是 ,人 们 必须 
事先 把 原始 数据 和 规定 的 计算 步骤 送 到 计算 机 中 去 ,而 计算 的 结果 又 要 由 计算 机 输出 来 .这 种 
人 和 计算 机 联系 的 桥梁 , 称 为 输入 或 给 出 设备 。 

常用 的 输入 设备 有 ,显示 器 键盘 .卡片 输入 机 、 软 盘 输 入 机 等 , 带 用 的 输出 设备 有 ,终端 显 
示 器 (荧光 屏 ). 行 式 打印 机 。 磁 带 机 和 磁盘 机 既 可 看 作 是 输 人 输出 设备 ,也 是 计算 机 的 “外 存 贮 
器 ”, 磁 带 或 磁盘 可 用 来 存 贮 信息 (包括 程序 和 数据 )。 

运算 器 ,控制 器 合 称 为 “中 央 处 理 器 "(简称 CPU, Centre Processing Unit) ,由 它 对 数据 进行 
各 种 操作 . 存 贮 史 只 是 存放 信息 的 ,本 身 不 产生 任何 操作 。 

一 个 计算 机 系统 包含 的 设备 可 以 表示 如 下 : 


| 
илай (пета 
钵 入 输出 设备 
部 
ПОР 


运算 器 
控制 器 


计算 机 系统 的 设备 又 称 为 计算 机 硬件 系统 。 
计算 机 各 部 分 联系 示意 图 见 图 1. 1。 


可 以 看 到 :在 计算 机 内 
部 存在 三 种 “信息 流 ”。 

(1) 指 令 流 ,图 中 以 粗 线 

表示 。 共 存 贮 器 中 将 事先 已 

存放 在 那里 的 计算 机 指令 过 

条 送 到 控制 器 中 ,控制 器 根 

uki 据 这 些 指令 的 要 求 向 计算 机 
各 部 分 发 出 控制 命令 。 

(2) 挖 制 流 . 图 中 以 虚线 
表示 . 它 包括 ,人 控制 器 通知 
从 存 贮 器 存 取 数 据 的 命令 ; 
mii ORMAR RETA g: 5 fr 
+ ЖАНГА. /输出 设备 将 


数据 读 入 存 迪 器 或 将 内 存 中 的 数据 通过 输出 设备 输 出 的 命令 。 
63) 数据 流 。 图 中 以 实 线 表示 。 包括 :全 由 输入 设备 将 数据 输入 到 在 贮 器 ; 仿 出 在 贮 器 将 数 
据 送 到 运算 器 以 便 进行 运算 ,运算 后 虚 将 运算 结果 关 回 存 喧 器; 国 从 任 贮 器 将 数据 送 到 输出 设 
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备 , 由 输出 设备 将 数据 记录 在 外 部 介质 (如 打印 纸 ) 上 。 

三) 计算 机 算是 的 简单 过 程 

仍 以 86 一 25X3=? 为 例 ,说 明 计算 机 的 工作 过 程 ， 

第 一 步 :由 输入 设备 (如 显示 器 键盘 将 事先 编 好 的 计算 步骤 ( 即 程序 ) 和 原始 数据 (86,25 
和 3) 输 入 到 计算 机 的 存 喧 器 中 存放 起 来 。 

第 二 步 :输入 运行 命令 ,存放 在 存 贮 器 中 的 程序 ( 它 是 由 若干 条 指令 组 成 的 将 指令 逐条 送 
到 控制 器 中 ,在 控制 器 的 控制 下 ,发 出 相应 的 命令 按 指定 的 计算 步 又 自动 进行 以 下 操作 ， 

(1) 从 存 贮 器 中 取 被 乘 数 25 MRR 3 到 运算 器 ,进行 乘法 运算 。 运 算 后 得 乘积 75。 

(2) 把 运算 器 中 的 电 间 结果 75, 送 局 到 存 贮 器 存放 ,以 备 调用 。 
《3) 从 存 贮 器 中 取出 被 减 数 86 和 减 数 75 到 运算 器 ,进行 相 减 。 在 运算 器 中 求 得 相 减 的 结 
果 11。 

(4) 将 运算 器 中 的 最 后 结果 11 送 回 存 贮 器 。 

第 三 步 : 把 存 贮 器 中 的 最 后 结果 11 送 到 输出 设备 ,把 这 个 最 后 结果 显示 在 荧光 屏 上 或 打 
印 在 纸 上 。 到 此 解 题 过 程 结束 。 


$1.3 数据 在 计算 机 内 的 存 迪 方式 


131 内 存 的 组 织 形式 


电子 计算 机 内 的 存 贮 器 ( 称 内 存 贮 器 ， 简 称 内 存 )》 是 由 千 千 万 万 个 小 的 电子 线路 单元 组 
成 的 ,每 一 个 单元 有 两 种 稳定 的 工作 状态 《例如 三 极 管 的 截止 和 导 通 )， 它 们 以 0 和 1 代表 。 
因此 电子 计算 机 存 贮 的 信息 是 用 二 进 制 形式 存 贮 的 。 每 一 个 小 元 件 中 存放 一 个 0 或 1 的 信 
息 ,关于 内 存 ， 常 用 到 以 下 一 些 术 语 。 

位 ,又 称 比特 (bit) 。 每 一 个 能 代表 0 和 1 的 电 于 线路 称 为 一 个 二 进 制 位 。 一 个 存 贮 器 就 
是 一 个 包含 许 许多 多 个 二 进位 的 电子 单元 的 庞大 电路 。 目 前 的 存 贮 器 多 采用 集成 化 技术 ， 把 
几 万 或 几 十 万 个 电子 元 件 做 成 一 个 集成 电路 ， 体 积 小 ， 耗 能 少 ， 速 度 快 。 

字 节 ， 又 称 拜 特 〈byte) 。 由 若干 个 二 进 制 位 组 成 一 个 字 节 ， 多 数 计算 机 以 8 个 二 进 制 位 
组 成 一 个 字 节 。 

F (word) 。 由 若干 个 字 节 组 成 一 个 存 贮 单 元 , 称 为 “ 字 ”。 一 个 存 凤 单 元 中 存放 一 条 指令 
或 一 个 数据 。 如 果 一 个 计算 机 以 32 个 二 进 制 的 信息 表示 一 条 指令 ， 就 称 这 台 计 算 机 的 “ 字 
长 ”为 32 位 。 

地 址 。 为 便于 管理 ， 对 每 个 存 贮 单元 编 一 个 存 贮 单元 号 , 这 就 是 “地 址 ”。 通过 地 址 可 以 
找到 所 需 的 存 贮 单元 , 可 以 取出 其 中 存 贮 的 信息 或 向 指定 的 存 贮 单元 存 入 信息 )。 这 如 同 旅 
馆 中 有 许多 房间 ， 给 每 个 房间 编 一 个 房 导 ， 只 有 通过 房间 号 才能 找到 所 要 找 的 客人 。 请 不 要 
将 存 贮 单元 的 “地 址 ”和 存 贮 单元 中 的 “内 容 ” 这 两 个 不 同 的 概念 混 清 。 正 如 同房 间 号 和 住 
在 其 中 的 旅客 是 两 回 事 一 样 。 见 图 1，2。 
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图 1. 2 


假设 在 地 址 为 008 的 存 贮 单元 中 放 一 个 数 25， 在 地 址 为 016 的 


存 迪 单元 中 放 数 3， 分 别 


从 这 两 个 存 贮 单元 中 将 数 取 到 运算 器 进行 相 乘 ， 然 后 将 乘积 75 送 回 地 址 为 024 的 存 贮 单元 。 


存 贮 器 、 存 贮 单元 、 字 节 、 位 之 间 的 关系 见 图 1. 3, 


aeS | | aaz | | * + 
сазо саат) «вазе 


二 进 制 位 
《最 小 单位 ) 


图 1. 3 


1.3.2 数据 的 二 进 制 表示 法 


一 个 十 进 制 数 必 须 先 化 成 二 进 制 形式 才能 存放 到 计算 机 的 存 迪 单元 中 。 二 进 制 的 基本 原 
则 是 “办 二 进 一 ”。 人 们 生活 中 常 遇 到 的 鞋 、 袜 、 和 众 子 、 手 套 等 就 是 过 二 进 一 的 实例 。 计 算 机 
之 所 以 采用 二 进 制 只 是 因为 许多 电子 元 件 具 有 两 种 稳定 工作 状态 (代表 0 和 D, 也 就 是 说 容 


ARM. 
RL 1 表示 10 以 内 的 十 进 制 数 与 二 进 制 数 的 对 照 。 


十 进 制 数 化 为 以 2 为 底 的 指数 形式 


052 
1x2 
1х+охл 
1ха+1х2 
1х22+0х 214-02 
1X2+1X21+1Xx2 
1X2+1X 2140x 2t 
1xX241X21+1Xx20 
1X 2+0X22+0X21+0X 2° 
1х2%+Е0х 22-0 21-12% 


Q m ч о л ж о гю м © 


一 个 十 进 制 数 ? 可 表示 为 : 


(F) = a н 2" + a o 6 Ба 621 а, + 


则 аза, аз аз, еа, 就 是 F 在 二 进 制 中 的 表示 形式 。 欲求 出 avm 


> 
an， 只 需 将 了 不 断 被 2 
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E MERRET, WR RAR 11 的 二 进 制 形式 。 


2| 11 《< 一 一 as 


最 后 一 个 余数 为 a。， 从 下 向 上 依次 为 na,…o， 因 此 (11) = 《1011):。 括 弧 外 的 注 
脚 “10” 和 “2” 分 别 表示 括 弧 中 的 数 是 十 进 制 数 和 二 进 制 数 。 
反之 ， 二 进 制 可 化 为 十 进 制 数 ， 如 表 1、2。 


E 1. 2 
二 进 制 数 十 进 制 数 
1 2a=1 
10 21=2 
100 2-4 
1000 22-8 
10000 24 一 16 
100000 25 一 32 
1000000 2 一 64 
10000000 2 一 128 
100-000 2 
n 个 0 


如 果 -个 二 进 制 整数 要 化 为 十 进 制 数 , 只 要 将 它 的 最 后 一 位 乘 以 2', 最 后 第 一 位 乘 以 2'、 
vee 依 此 类 推 ， 将 各 项 相 加 就 得 到 用 十 进 制 数 表 示 的 数 。 如 : 
(101101D) = 1X2+OX2+1X2+1x2+0x2+1xX2 
= ++ 2° + 2° ` 
= 32 +8 + 4+ ! = (5) 
如 果 候 把 一 个 字符 例如 字符 “A” 战 “$”) 存放 到 计算 机 内 存 中 ， 用 什么 方法 呢 ? i 
然 计算 机 内 是 不 能 直接 存 贮 英 文字 母 或 专用 字符 Ош S”. 627. “BU” ЧУ 的 ， 也 要 改 用 . 
进 制 形式 的 代码 来 存放 。 即 ， 对 每 一 个 字符 指定 一 个 二 进 制 代码 。 肯 前 多 数 计算 机 系统 采 内 
ASCII 代码 (American standard Code for Information Interchange , 即 “ 美 国信 息 交 换 标准 码 ”) , 参 
见 本 书 附录 一 。 例 如 字符 “A” 用 01000001 代表 , 字符 “$ ”用 00100100 代表 。 每 “个 字符 
用 八 个 二 进位 《一 个 字 节 ) 存放 。 如 果 我 们 想 输 入 字符 “A”, 按键 盘 上 的 “A” 键 ,系统 会 自 
动 将 “A” 转 换 成 ASCII 代码 01000001， 然 后 送 到 计算 机 内 存 中 。 
以 上 简单 说 明了 整数 和 字符 是 如 何 存放 到 计算 机 中 的 。 对 于 带 小 数 的 实数 ， 在 计算 机 中 
是 以 指数 形式 存放 的 ， 在 此 不 作 介绍 。 


6 


1.3.3 八进制 和 十 六 进 制 


由 于 二 进 制 数位 数 多 , 数字 元 长 , 不 便 记 忆 和 书写 , 因此 常 将 二 进 制 数 分 成 三 位 一 组 , 如 
10110101111 可 分 为 10, 110, 101, 111 四 组 , 每 一 组 代表 一 个 0 到 7 之 间 的 数 (三 位 数 最 大 
为 111， 植 当 于 十 进 制 的 7)。 因 此 ， 它 是 八进制 数 ， 即 “着 八 进 一”。 

10, пе, 101, Ш. 
265 7 
(10 110 101 111), 一 〈2657)*。 注 意 不 是 十 进 制 的 2657， 而 是 八进制 的 2657。 它 的 十 进 制 形 
式 为 1455。 

如 果 将 二 进 制 数 分 成 四 位 一 组 ,就 是 十 六 制 数 (四 位 的 二 进位 数 最 大 为 1111, 相当 于 十 
进 制 的 15， 即 着 十 六 进 一 )。 如 ， 

5 10 15 


在 十 六 进 制 中 把 10 以 上 的 数 用 A 代表 10)、B (代表 11)、C (代表 12), D (代表 13)、E 
(代表 14). F 《代表 15) 表示 。 因此 ， (10110101111), = (1455) = (2657), = 
(ЅАР) в, 
表 1，3 举例 说 明 十 进 制 数 和 二 进 制 数 、 八 进 制 数 ， 十 六 制 数 的 对 应 关系 。 
жыз 
-— 
TERM =ющй 八进制 数 十 六 进 制 数 

32 110000 40 20 

52 111210 76 3E 

114 i 1110010 162 了 2 

241 11110001 361 ЕІ 

200 11001000 310 cs 


在 应 用 时 ， 必 须 弄 清楚 所 接触 的 数 是 什么 进 制 的 ， 不 要 弄 错 。 例 如 对 二 进 制 中 的 100 V 
读 作 “过 等 零 ”而 不 应 该 读 为 “一 百 ”。 

以 上 只 作 简 单 的 介绍 ， 以 便 使 读者 对 二 进 制 数 有 - -初步 概 含 。 实 际 上 ， 在 数据 输入 计算 
机 时 , 是 由 计算 机 系统 自动 将 十 进 制 数 转换 为 二 进 制 数 的 , 不 必 使 用 者 自己 转换 , 在 输出 时 ， 
由 计算 机 将 内 存 中 的 二 进 制 数 先 转换 成 十 进 制 数 ， 然 后 输出 给 用 户 的 。 初 学 者 对 八进制 和 十 
六 进 制 可 不 必 深究 ， 知 道 有 这 一 回 事 就 行 ， 以 使 今后 查阅 资料 时 不 致 基 然 。 


14.1 机 器 语言 


要 使 计算 机 按 人 的 意图 工作 ， 就 必须 使 计算 机 懂得 人 的 意图 ， 接 受 人 向 它 发 出 的 命令 和 
信息 。 人 要 和 机 器 交换 信息 就 要 解决 一 个 “语言 ”的 问题 。 计 算 机 并 不 懂 人 类 的 语言 〈 无 论 
是 中 文 或 英文 )， 例 如 , 我 们 写 A 十 B 一 C， 机 器 不 能 接受 它 只 能 识别 0 和 1 两 种 状态 。 长 城 
0520 (5 IBM - PC A) 计算 机 一 个 字 长 为 16 位 ,也 就 是 说 ,由 16 个 二 进 制 数 〈0 或 1) 组 
成 一 条 指令 或 其 它 信息 。16 个 0 和 1 可 组 成 各 种 排列 组 合 ， 通 过 线路 变 成 电信 号 ， 让 计算 机 
执行 各 种 不 同 的 动作 。 

Зп. 1011011000000000 

在 某 一 类 型 的 计算 机 中 ， 这 条 指令 的 作用 是 让 计算 机 进行 一 次 加 法 

XM: 1011010100000000 

这 条 指令 的 作用 是 让 计算 机 进行 一 次 减法 ， 

以 上 两 条 指令 只 是 第 6 和 第 7 位 不 同 〈 从 第 0 位 ， 即 最 左边 的 一 位 竺 起)， 可 以 看 出 ，16 
个 0 和 1 最 多 可 以 组 成 2 个 不 同 的 指令 或 信息 。 

人 要 和 机 器 进行 联系 ， 就 要 编 册 这 种 由 0 和 1 组 成 的 数字 代码 。 这 种 计算 机 能 接受 的 代 
码 ， 称 为 机 器 指令 。 一 条 指令 用 来 控制 计算 机 进行 一 个 操作 内 容 。 它 告诉 计算 机 应 进行 什么 
运算 、 了 那些 数 参加 运算 、 这 些 数 存 放 在 什么 地 方 〈 到 了 娜 里 去 取 数 )、 计 算 结 果 应 送 到 什么 地 方 
去 ， 等 等 。 

一 种 计算 机 的 指令 的 集合 称 为 该 计算 机 的 机 器 语言 ， 或 者 说 该 计算 机 的 指令 系统 ,正如 
则 用 算盘 算 题 一 样 ， 每 一 条 珠算 口诀 就 是 一 条 指令 ,全 部 口诀 之 和 就 是 “珠算 语言 "。 也 就 是 
说 ,“ 语 言 ” 是 全 部 指令 的 总 和 。 为 了 解 某 一 个 问题 ， 可 以 从 该 “语言 ”中 选择 所 需 的 指令 ， 
组 成 一 个 指令 序列 ， 这 称 为 机 器 语言 程序 。 ` 

用 机 器 语言 编写 程序 是 一 件 十 分 繁琐 的 工作 ,要 记 住 各 种 代码 和 它 的 含义 是 不 容易 的 .而 
且 编 出 的 程序 全 是 0 和 1 HRF, UEZ, 非常 容易 出 错 。 程 序 的 检查 和 调试 都 比较 困 
难 。 

不 仅 如 此 ， 不 同 的 计算 机 系统 的 线路 逻辑 是 不 同 的 ， 因 此 ， 对 不 同 的 计算 机 ， 即 使 是 执 
行 同一 个 操作 ， 其 指令 也 是 不 同 的 。 或 者 说 ， 不 同 的 计算 机 有 不 同 的 指令 系统 〈 即 有 不 同 的 
机 器 语言 )。 一 般 说 ， 不 问 型 号 计算 机 的 机 器 语言 是 互 不 通用 的 。 例 如 有 的 计算 机 字 长 为 16 
位 ， 而 有 的 计算 机 字 长 为 8 位 ， 还 有 的 为 32 位 ， 显 然 ， 用 甲 再 机 器 的 机 器 指令 编写 的 程序 ， 
拿 到 乙 型 机 器 上 是 不 适用 的 ， 需 要 重新 编写 程序 ， 显 然 这 是 很 不 方便 的 。 因 此 说 ， 机 器 语言 
是 依 驶 于 具体 计算 机 的 而 不 是 通用 的 ， 它 是 面向 机 器 的 ， 称 为 “低级 语言 "。 

由 于 机 史 语 言 与 人 们 习惯 用 的 语言 差别 太 大 ， 难 学 、 难 写 、 难 记 、 难 检查 、 难 修改 ， 而 
且 不 同 机 间 器 又 不 通用 ， 因 此 给 计算 机 的 推广 使 用 造成 了 很 大 的 障碍 。 


1.4.2 高 级 语言 


为 了 解决 机 器 语言 (又 称 为 低级 语言 ) 的 上 述 缺 陷 ， 人 们 创造 了 “高 级 语言 ">，BASIC 就 
是 高 级 语言 中 的 一 种 。 

人 们 进行 计算 , 一 般 是 用 数学 式 子 来 表达 意思 , 如 Y=3，。sin (A+B) 等 , 但 计算 机 又 不 
懂得 这 种 “数学 语言 "。 人 们 设想 ,能 否 找 到 一 种 过 渡 性 的 语言 , 它 比较 接近 人 们 习惯 的 自然 
语言 〈 如 英文 ) 和 “数学 语言 >， 又 能 为 机 器 所 接受 。 艾 如 ， 用 数学 符号 写 “ 十 ”， 计 算 机 就 
执行 加 法 , F SIN (X), 计算 机 就 计算 出 X WE, F PRINT A, В, 计算 机 就 能 打印 出 变 
基 A 和 B 的 值 ， 如 果 能 做 到 这 点 ， 将 为 值 用 者 提供 极 大 的 方便 。 

50 年 代 , 创造 出 一 种 程序 设计 语言, 它 很 接近 于 人 们 习惯 使 用 的 自然 语言 和 数学 语言 , 例 
如 用 BASIC 语言 ,要 想得到 3X8sin (x/2) 的 计算 结果 ,只 需 写 出 PRINT 3 * 8 = SIN (8. 14159/ 
2) MT, 计算 机 将 打印 出 结果 。 这 种 语言 ， 人 们 容易 掌握 和 理解 ， 容 易 椎 广 。 这 种 语言 不 青 
是 面向 机 器 的 了 , 而 是 面向 解 题 过 程 的 ,就 是 说 , 不 必 考 虑 机 器 内 部 构造 和 不 同 机 只 的 特点 ， 
只 要 接 照 佣 题 步 台 写 出 程序 ,计算 机 就 能 执行 ， 这 种 语言 称 为 “算法 语言 "。 有 即 ,用 这 种 语言 
写 程序 需要 指出 计算 机 一 步 一 步 如 何 做 ， 即 要 指明 算法 。 这 种 不 信赖 于 具体 计算 机 的 语言 被 
称 为 “高 级 语言 ” 

目前 使用 较 多 的 算法 语言 有 ， 

BASIC 一 一 一 种 易学 易 用 又 有 实际 值 用 价值 的 计算 机 语言 ， 最 适 于 初学 者 值 用 。 

FORTRAN~ 一 世界 上 最 早出 现 的 高 级 语言 ， 适 于 数值 计算 。 

COBOL 一 一 适用 于 商业 和 管理 领域 , 

PASCAL 一 一 最 时 出 现 的 结构 化 语言 ， 适 于 教学 中 值 用 。 

PL/1 一 一 一 种 大 型 的 语言 ， 功 能 强 ， 兼 有 数值 计算 和 数据 处 理 的 功能 。 

ADA 一 一 一 种 工程 化 的 大 型 语言 ， 功 能 很 强 。 

C 一 一 近年 来 得 到 广泛 推广 的 适 于 编写 系统 软件 的 结构 化 的 语言 。 

吞 内 外 使 用 的 高 级 语言 达 几 百 种 之 多 ， 每 一 种 语言 都 有 自己 规定 的 语法 规则 ， 例 如 有 的 
高 级 语言 必 “PRINT” 代 表 “ 打 印 输出 *， 而 有 的 语言 则 以 “WRITE” 代 表 之 。 要 使 用 某 一 种 
语言 必 须 狼 悉 该 语言 的 语法 规则 

事实 上 ， 计 算 机 并 不 能 直接 接受 和 执行 用 高 级 语言 写 的 程序 〈 它 只 能 接受 0 和 1 组 成 的 
信息 )， 因 此 必须 要 有 “翻译 "， 把 人 们 用 高 级 语言 写 的 程序 ( 称 为 “ 源 程序 ”) 翻译 成 机 器 指 
令 的 程序 ， 然 后 再 让 计算 机 执行 机 器 指令 ,这 种 “翻译 "， 还 常 有 两 种 做 法 ， 邑 编译 方式 和 解 
释 方式 .编译 方式 是 ， 事 先 编 好 一 个 称 为 编译 程序 的 机 烽 指 令 程序 ， 并 放 在 计算 机 中 ， 把 用 
高 级 语 窒 写 的 源 程序 输入 计算 机 ， 编 译 程序 便 把 源 程序 整个 地 翻译 成 用 机 妖 指 令 家 示 的 目的 
程序 。 然 后 执行 该 目的 程序 ， 得 到 计算 结果 。 如 图 1，3 (a) 所 示 。 

解释 方式 是 : 事先 编 好 一 个 称 为 解释 得 序 的 机 器 指令 程序 ， 并 放 在 计算 机 中 。 当 高 级 语 
言 源 程序 输入 计算 机 后 ， 它 并 不 是 象 编译 方式 那样 把 源 程序 整个 地 翻译 成 目的 程序 ， 然 后 再 
执行 该 目的 程序 。 而 是 逐 名 地 翻译 , 译 出 一 名 立即 执行 , 即 边 解释 边 执行 。 见 图 1. 3 (b). 这 
种 方式 比 编译 方式 多 费 机 萎 时 间 ， 但 可 少 占 计 算 机 的 内 存 。 


r 
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图 1. 3 (а) Е1- 3 (o> 

FORTRAN, PASCAL, СОВО 等 高 级 语言 采用 编译 执行 方式 , 而 大 多 数 BASIC 高 级 语言 
采用 解释 执行 方式 《近年 已 有 编译 BASIC), 

HTAR ORE BERETA TERRIA S SKIET ALE EE .这 
就 大 大 节省 了 使 用 者 的 工作 量 。 自 以 有 了 高 级 语言 后 ,一般 的 科 荧 人 员 和 大 、 中 学 生 以 及 职 
工 ， 痢 能 很 快 地 学 会 使 用 计算 机 ， 而 吉 以 完全 不 顾 什 么 机 器 指令 ， 也 可 以 不 必 深 入 懂得 计算 
机 多 内 部 结 渔 和 工作 原理 ， 就 能 方便 地 使 用 计算 机 进行 各 种 科学 计算 或 事务 管理 等 。 因 此 有 
人 说 ,高 级 滞 音 的 出 现 是 计算 机 发 展 中 “最 惊人 的 成 就 ”。 

使 用 高 级 语言 写 很 序 还 有 一 个 很 大 的 优点 , 就 是 它 可 以 适用 于 不 同 的 计算 机 , 或 者 说 , 对 
不 同 的 计算 负 具 有 通用 性 。 必 某 一 种 高 级 滞 言 编写 的 源 程 序 几乎 可 不 加 收 改 〈 有 时 需 作 一 些 
征 小 的 修改 ) 就 能 使 用 在 天 同 的 计算 机 二。 这 就 给 使 用 者 带 来 很 大 的 方 小。 应 当 指 出 : 即使 
是 同一 种 注 级 语言 ， 对 不 同 昼 号 的 计算 机 来 说 ， 它 的 具体 编译 系统 是 不 同 的 。 正 如 把 同一 篇 
中 文 翻译 为 英文 和 翻 弃 为 法 文 需要 不 同 的 翻 汉 一 样 。 但 是 这 个 司 题 用 户 不 必 这 庶 ， 在 计算 机 
出 厂 时 ， 已 经 将 该 机 器 斥 使 用 的 各 种 语言 的 编译 程序 或 解释 程序 ) 记录 在 磁盘 或 磁带 上 作 
为 计算 机 系统 的 软件 同时 提供 给 用 户 了 。 

近年 来 ，+ 始 发 展 一 种 更 为 高 级 的 高 级 语言 (或 称 “ 超 高 级 语言 ”)， 只 需 指 出 让 计算 机 
“ 散 什 么 "， 而 不 必 指 出 “ 怎 翌 做 "、 计 筑 矶 全 自动 完成 天 需 的 步 又 ， 显 然 这 又 大 大 前 进一步 。 
RRE EURER EE”. MA DBASE 就 属于 这 类 语言 。 

现 夺 所 用 的 大 多 数 语言 仍然 是 过 程 化 的 酒 这， 学习 用 过 程 化 的 语言 《算法 语言 〗 编写 程 
序 ， 是 目前 学 习 计 算 机 技术 的 一 项 基本 训练 ， 


81.5 计算 机 的 硬件 和 软件 


一 个 计算 机 系统 包括 硬件 系统 种 教 件 系统 两 上 部分。 运行 一 个 程序 ， 竹 需要 有 必须 的 计 
算 机 设备 ， 还 需要 有 必须 的 软 牛 环境 的 支持 。 

o) api ПЕ. PANERA. CER: 控制 闫 、 运 算 器 、 
AAIE алани, УСРР, 

(二 ) 软件 系统 ,或 称 程序 系统 。 广 义 地 说 , ВРЕ ЕЛЕ. ЗАИР ЧИЕ ЦА REA 
关 的 文 悄 资料 ， 软 件 系统 着 重 研 究 如 何 管理 视 必 和 使 用 机 器 的 问题 。 也 就 是 研究 怎样 通 过 软 
件 的 作 朋 更 好 地 发 挥 计 算 机 的 功能 。 -个 六 包含 任 宁 软件 的 计算 机 丈 为 “ 宰 机 ”。 在 课 机 上 只 
能 运行 所 器 语 半 源 程序 ， 显 然 它 的 芒 能 是 有 限 的 ， 视 器 的 效能 没有 得 到 有 效 的 发 挥 。 

计算 机 软件 主要 有 两 大 类 :系统 软件 和 应 用 钦 件 。 系 统 软件 是 计算 机 厂商 车 出 | 时 提供 
KH, 常见 的 有 ， 汇编 程序 、 编 译 避 序 、 扣 作 系统 ， 故 障 诊 断 程序 、 控 市 程序 、 数 据 库 管 埋 系 

19 


=, лиле HT [H КИЙН ЮГЕ. MAET ГН РО H ЯСЕ Sri 
33 TTS HH W НИЕ, glim T kapuy. WH ИЕЛ, SHE FS t. 
外 述 有 一 种 称 之 为 “工具 软件 ”、 是 提供 一 种 软件 工具 以 方 重用 户 进行 软件 开发 , 例如 编辑 软 
Е (MEDLIN, WORDSTAR), HTH (ШШ AUTOCAD), А ЖАР. 
要 使 起 算 机 充分 发 挥 其 效能 ， 除 ”要 与 较 好 的 硬件 外 ， 还 要 者 丰富 多 样 的 软件 。 和 硬件 系 
统 和 软件 系统 构成 一 个 完 旨 的 计算 机 系统 。 ， 
ЕКЕ ЯН Б Ж Ж ЗЕ "ЖЕЎЕ Ж”, ЕРТ 


АА 有 软件 的 核心 ,现在 儿 乎 所 有 的 计算 机 都 配置 
了 操作 系统 (Operating Systen , SK OS) Ж}: £ 


Аа: ачка ЗЕЕ -个 虎 大 的 程序 . 它 控制 所 有 在 该 计算机 
:运行 的 程序 井 管理 这 个 计算 机 的 所 有 资源 。 
它 的 指导 思想 是 ;充分 列 下 计算 机 的 全 部 资源 . 
展 大 限度 地 发 挥 汁 算 机 系统 各 部 分 的 作用 . 通 
俗 地 说 , 它 如 同 天 乐队 的 指挥 ,使 各 部 分 协调 有 
效 地 工作 。BASIC 解 释 存 序 沉 是 在 操作 系统 管 
理 下 进行 工作 的 ,或 埋 说 ,BASIC 解 释 程 序 只 有 
在 操作 系统 支持 下 才能 工作。 图 1. 4 表示 计算 
坝 一 一 操作 系统 一 一 高 级 诸 言 编译 得 序 { 或 解 
BAP MREFA 
Aa ERR HeRR ПОТЕ А 
系统 处 理 、 MAERA ETE 

工作 的 ， 双 有 通过 操作 系统 ， 它 们 才能 便 计 算 机 产生 权 应 的 动作 。 
使 用 计算 机 解 题 的 人 ， 除 了 需要 月 高 级 语言 编程 了 多， 还 应 当 会 漠 操 作 系统 提供 的 一些 
操作 命令 〈 记 复制 一 个 文件 ， 列 出 磁盘 文件 目录 、 删 去 一 个 文件 … 等 )。 
许多 计算 机 系统 采用 分 时 操作 系统 ， 即 允许 许多 用 户 СЛ. ЛЛ, 十 个 ) 同 时 使 用 同一 个 

计算 机 ， 以 提高 斗 算 机 启用 效率 。 


§1.6 利用 计算 机 解决 实际 问题 的 步骤 


如 果 求 解 的 是 ~- 个 比较 简单 的 问题 ， 一 般 要 经 过 以 下 几 个 步骤 。 

(1) 分 析 问 题 ， 明 请 问题 要 求 。 

(2) 建立 数学 模型 。 将 一 个 实际 пиш 〔 如 电路 电流 计算 ， 异 弹 轨 迹 计 算 … 用 数学 语言 
КЕЕ ШЕЕ сәй 

(3) 确定 数据 结构 和 算法 。 解 题 要 考 过 数据 的 组 织 形式 ， 这 就 是 敬 据 结构 。 算法 是 指 解 
题 的 具体 沙 骤 ， 即 考虑 好 如何 (b pha ipi ie. 一般 用 流程 图 来 表示 算法 。 

《4) 根据 已 确定 的 算法 用 高 级 语言 编写 程序 ， 这 一 步 又 称 编 何 (Coding), 

《5) 调试 程序 。 将 写 好 的 产程 序 上 机 试 运行 输入 所 需 的 数据 (数据 应 包括 不 同 的 “ 试 
验 数 据 ”) 测 记 在 各 惠 不 同 彰 况 下 程序 能 否 正常 运行 。 如 发 现 穆 序 有 错 ， 必 修改 程序 。 

W 通过 调试 得 到 可 供 正 起 运行 的 程序 后 ,上 机 正式 运行 ， 送 入 正式 前 数据 ， 得 到 必要 
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的 运算 结果 。 分 析 结果 是 否 正确 。 

Ст) 整理 资料 ， 写 出 程序 文档 “(程序 说 明 书 )， 包括 : 题目 ; 任务 要 求 ; 原始 数据 ; 数据 
结构 ; 算法 《可 用 流程 图 表示 ); 程序 清单 ， 运行 结果 ; 所 用 计算 机 系统 配置 : 操作 说 明 。 文 
档 是 软件 的 重要 部 分 ， 供 日 后 查阅 。 应 养 成 写 文档 的 良好 习惯 

如 果 要 处 理 的 是 一 个 复杂 庞大 的 任务 ， 则 应 按照 软件 工程 的 要 求 ， 进 行 系统 分 析 、 系 统 
设计 和 程序 设计 。 即 应 经 历 以 下 几 个 阶段 。 

(1) 问题 定义 与 需求 分 析 。 

D 总 体 设计 ,或 称 概要 设计 。 将 一 个 大 任务 划分 为 若干 个 子 任务 ， 即 划分 模块 。 

《3) 详细 设计 。 根 据 给 定子 任务 模块) 的 要 求 ， 设 计算 法 和 数据 结构 。 

(4) 编写 程序 和 单元 测试 。 

O 综合 测试 与 确认 运行 。 

O 系统 维护 。 

以 上 六 个 阶段 称 为 “软件 生存 周期 "。 其 中 的 《1) 称 为 “软件 定义 时 期 ” (2) — (5) 称 
为 “软件 开发 时 期 >; (6) 称 为 “软件 维护 时 期 *。 一 般 所 说 的 “程序 设计 ”大 体 包括 以 上 
G) (4) 两 个 阶段 。-- 个 大 任务 不 是 一 个 人 能 完成 的 ， 是 由 系统 分 析 师 、 系 统 设计 师 、 高 级 
程序 员 、 程 序 员 共同 完成 的 。 

因此 ， 学 习 BASIC 语言 (成 其 它 高 级 语言 ) 并 用 它 编写 程序 ， 只 是 学 习 计 算 机 应 用 的 初 
步 , 计算 机 知识 浩 如 瀚 海 ， 入 门 后 还 要 不 断 扩展 自己 的 知识 ， 以 适应 面临 的 复杂 任务 。 


习 题 


11 请 用 你 自己 的 语言 说 明 什么 是 电子 计算 机 .电子 计 算 机 与 袖珍 电子 计算 器 的 主要 区 
别 在 哪里 ? 

1.2 请 你 从 自己 的 见闻 中 举 出 计算 机 应 用 的 五 个 例子 。 

1.3 ”请 说 明 一 个 计算 机 系统 应 包括 哪些 部 分 (分 别 说 明 硬件 系统 和 软件 系统 所 包括 的 部 
分 )。 

1.4 计算 机 的 内 存 贮 器 的 作用 是 什么 ? 它 本 身 有 无 运算 功能 ? 

1.5 计算 机 内 存 贮 器 的 组 织 形式 是 怎样 的 ? 什么 叫 “ 位 ”"`“ 字 节 ”,“ 字 ”? 存 贮 单元 的 
“地 让” 是 指 什么 ?“ 地 址 ”与 存 贮 单元 中 的 信息 有 什么 关系 ? 

1.6 ”计算 机 内 部 为 什么 要 采用 二 进 制 形式 存 贮 数据 和 进行 运算 ? 为 什么 不 用 十 进 制 ? 

1.7 把 下 列 各 十 进 制 数 用 二 进 制 形式 表示 

(1) 92 (2) 128 (3) 136 (4) 246 (5) 1024 

1.8 ”把 下 列 各 二 进 制 数 化 成 十 进 制 数 ， 

(1) 1110 (2) 1010 (3) 101111 (4) 11000010 (5) 1011010 

19 把 下 面 二 进 制 数 用 八进制 和 十 六 进 制 形式 表示 ， 

‹1) 10110111 (2) 110001 (3) 0101010101 (4) 1111111111 (5) 1000001 

110 试 述 机 器 语言 与 高 级 语言 的 特点 ， 为 什么 要 使 用 高 级 语言 ? 计算 机 为 什么 能 执行 
高 级 语言 程序 ? 

1.11 用 计算 机 解 题 一 般 应 经 历 哪 几 个 阶段 ? 为 什么 要 书写 程序 文档 ? 
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第 二 章 ”最 简单 的 BASIC 程序 
分 析 和 流程 图 


82.1 BASIC 语言 的 基本 特点 


BASIC 语言 是 目前 国际 前 在 的 计算 机 算法 语言 。 小 型 却 微 型 计算 机 一 般 都 配 有 BASIC 语 
Ë, 它 是 一 各 适合 于 初学 者 使 用 而 又 实用 的 计算 机 高 级 语言 ,学 会 7 BASIC, 然后 再 学 其 它 语 
= (例如 F DRTRAN ，ALGOL，COBOL，PASCAL，R，PL 1 ) 也 就 不 难 了 。 

BASIC 是 Beginner?s АШ — purpose Symbalic Instruction Code (官学 者 通用 符号 指令 找 码 ) 一 
词 的 缩写 。 它 是 专门 为 初学 者 设计 的 一 种 计算 机 语言 。 

BASIC 语言 有 以 下 几 个 特点 ， 

(1) BASIC 语言 好 懂 易 学 。BASIC 的 常用 语句 只 有 二 三 十 种 。BASIC 的 命令 和 语句 中 使 用 
的 记 以 及 运算 符号 与 英语 中 使 用 的 词 以 及 数学 中 的 符 导 差不多 ， 洒 此 比较 直观 ， 易 于 理解 和 
记忆 。 

例如 英语 中 “PRINT” 的 意思 是 “ 印 剧 ” 在 BASIC 语言 中 它 也 代表 “打印 *， 它 使 计算 机 
执行 一 个 “打印 ”的 操 第 ， 打 印 出 你 所 需 的 内 容 。 又 如 : “IF A2>0 THEN PRINT A” 这 一 语句 
WELE: “FADO, ЖИТЕП A МИҢ”. ЖЕЕП. 

(D 文 多 数 BASIC 采取 解释 执行 方式 , 是 会 话 式 的 语言 . 便 二 人 机 对 话 。 在 输入 源 程序 
并 运行 后 ， 计 算 机 系统 会 检查 语法 有 无 错误 .如 有 错 屏幕 上 会 显示 出 错误 信息 ， 性 户 可 以 立 
即 在 键盘 上 修改 出 氏 的 语句 ， 在 计算 机 的 终端 上 边 计算 边 修改 ， 直 至 得 到 满意 的 结果 为 止 。 
BASIC 程序 多 调试 是 十 分 方便 的 对 二 编程 序 还 不 大 熟练 的 初学 者 。 程 序 中 难免 有 错 ， 用 
BASIC 修 改 错误 是 很 方便 的 - 

{3) BASIC 除了 可 以 用 “程序 方式 " 通过 运行 程序 得 乳 运 算 结果 外 , 还 提供 一 种 “命令 广 
式 ”， 即 允许 在 终端 约 键盘 上 直接 进行 运算 ( 称 键 盘 运 算 ) 和 执行 某 些 命令 ， 而 不 必 专 打 编 写 
-- 自 程序。 这 时 如 同 使 用 计算 器 一 样 。 如 在 健 盘 上 打 人 : PRINT (3 十 SIN《0) /4， 则 计算 机 立 
即 打印 出 结果 0.75 来 。 它 又 称 为 “直接 方式 ”。 这 种 功能 在 检查 和 调试 程序 中 是 很 有 用 的 ,为 
了 检查 程序 的 某 一 部 分 是 否 正确 ， 常 常 需要 多 次 运用 键盘 运算 。 

(4) BASIC 语言 功能 较 强 , 不仅 可 泛 用 于 数值 计算 , 而 且 还 适合 于 数据 处 理 , 又 能 用 于 实 
时 控制 。 BASIC 的 打印 格式 灵活 多 样 , 用 来 处 理 小 型 的 事务 管理 任务 是 很 方 包 的 。 BASIC 还 有 
终 图 、 音 乐 等 功能 ， 这 是 其 它 一 些 高 级 语言 所 不 及 的 。 因 此 ， 不 少 CAD 〔 半 算 机 辅助 设计 )、 
CAI〔〈 计 算 机 辅助 数学 ) 和 游戏 程序 是 用 BASC 语言 编写 的 。 

(5》 近 年 来 ， 许 多 计算 机 所 用 的 BASIC 语言 有 很 大 的 改进 ， 已 经 出 现 了 一 些 结 物化 的 
BASIC ЕЕ Ж (如 True BASIC, Quick BASIC, Turbo BASIO), ， 有 的 版 本 接近 于 结构 化 再 言 
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(如 PC 机 上 用 的 Microsoft BASIC, E MS - BASIC) ， 便 于 进行 结构 化 程序 设计 。 

一 些 功能 强 的 BASIC 版 本 所 提供 的 功能 并 不 亚 于 FORTRAN 语言， 因此 ，BASIC ИЗЛЕ 
有 广泛 群众 基础 又 有 实际 使 用 价值 的 计算 机 语言 。 

由 于 BASIC 采取 解释 执行 方式 ,执行 速度 比较 慢 ， 这 对 完成 绞 大 型 的 复杂 的 企 务 是 不 利 
的 ， 但 对 初学 者 所 远 到 的 小 型 程序 来 说 ,解释 执行 利 大 于 黄 。 现 在 已 出 现 了 - 些 采用 编译 力 
KÉY BASIC ( 即 编译 BASIC), True BASIC 则 解释 方式 与 编译 方式 兼 而 有 之 ， 可 以 利用 解释 方 
式 调 试 程序 ， 编 译 方式 运行 程序 ， 以 达 两 全 其 美 。 

BASIC 提供 的 数据 结构 不 如 PASCAL 和 一 些 大 型 语言 丰富 ， 有 些 功能 受到 限制 ， 因此， 
BASIC 一 般 用 于 相对 小 型 的 任务 。 

总 之 , 在 推广 普及 计算 机 应 用 中 , BASIC 晨 一 个 有 效 的 工具 ，, 尤其 对 非 计算 机 专业 的 学 生 
和 科技 人 员 、 管 理 人 员 更 为 适宜 。 有 了 BASIC 语言 的 基础 ， 再 学 习 其 它 计算 机 语言 就 比较 容 
易 了 。 不 少 同志 在 学 习 了 BASIC 后 ， 消 除了 对 计算 机 的 神秘 感 ， 培 养 了 对 计算 机 的 兴趣 ， 掌 
所 了 程序 设计 的 基本 方法 ， 在 需要 时 再 学 习 其 它 高 级 语言 ， 能 举一反三 ， 不 感到 多 大 困难 。 

应 当 说 明 ,， R BASIC 是 一 种 国际 上 通用 的 计算 机 语言 , 但 不 同 计算 机 系统 .上 所 使 用 的 
BASIC 语言 是 有 一 些小 的 区 别 的 。 本 书 的 叙述 以 在 IBM - PC, 长 城 0520, APPLE- I (加 Z80 
插件 , 并 用 CP/M 操作 系统 )、 王 安 PE、ALTOS 等 多 种 微机 上 都 可 运行 的 Mucrosoft BASIC 为 
蓝本 (简称 MS BASIC), WAE -Me BASIC 的 特点 ,如 果 在 读者 所 用 的 计算 机 上 运行 本 书 介 
绍 的 程序 遇 到 困难 ， 可 查阅 所 用 的 计算 机 的 BASIC 手册 ， 必 要 时 对 程序 作 少 重修 改 即 可 。 


§ 2.2 BASIC 程序 的 构成 和 基本 规则 


先 举 例 说 明 什 么 是 BASIC 程序 和 怎样 运用 BASIC 语言 算 题 。 
Ж 全 班 某 课程 的 平均 成 绩 : 全 班 32 人 , A 等 (3 分 ) 13А, BS (4 分 ) (2 人 ，C 等 
(ЗЯ) 5 人 ,D 等 (2 分 ) 2 人 。 
解 此 题 可 用 BASIC 语言 编 出 下 面 的 程序 ， 
10 LET A=13 
20 LET B=}2 
30 LET C=5 
40 LET D=? 
50 LET TOTAL=A+B+C+D 
60 LET AVER= (5x A+4*B+3*C+2<*D) /TOTAL 
70 PRINT AVER 
99 END 
这 种 利用 BASIC 语言 编制 的 算 题 程序 ， 称 BASIC 语言 程序 ， 也 称 为 BASIC 语言 源 程序 
(Source program) „ 
ЕНЕЛ А, В, C, D, TOTAL, AVER 是 变量 ，A，B，C，PD 分 别 代表 A 等 、B 等 、C 
等 、D 等 的 人 数 ，TOTAL RA “& АЖ”. АУЕК 代表 “平均 值 ” ( 取 Average 的 前 几 个 字 
B). 


BASIC 源 程序 有 以 下 一 些 规定 。 

(一) 一 个 BASIC 程序 (program) 是 由 若干 行 (Line) 组 成 的 。 一 行内 写 一 个 或 多 个 语句 。 
URE -行内 写 一 个 以 上 语句， 则 各 语句 间 以 冒号 O 分 隔 。 例如 ,程序 中 的 前 四 行 也 可 以 
写成 : 

10 LET A=13; LET B=12: LET C=6, LET D=2 

每 一 个 语句 分 别 让 计算 机 执行 某 一 个 特定 的 功能 . 换言之 , ЖЕЛЕДЕН ЯТ FA ИРЕН) МОД. 
例如 ， 在 上 面 的 程序 中 ， 共 包括 8 个 语句 。70 语句 是 让 计算 机 打印 出 平均 分 数 AVER 。 

《二 ) 每 一 行 由 (1) p; (2) 语句 ; 《3) 行 结束 符 三 部 分 组 成 。 

每 行 前 都 冠 以 数字 (在 上 例 中 是 从 10 到 99), 这 个 数字 称 为 行 号 《Line number)， 如 果 一 
行 只 含 一 个 语句 则 它 就 是 语句 标号 ， 简 称 标号 。 行 号 必须 是 无 符号 整数 ， 一 般 情 况 下 ， 计 算 
机 会 按 行 导 大 小 顺序 执行 各 行 中 的 语句 。 行 号 的 范围 从 0 到 65529 〈 不 同 的 BASIC 版 本 规定 
的 范围 不 同 ), 行 导 可 不 按 大 小 顺序 写 , 程序 送 入 计算 机 后 ，BASIC 解释 系统 会 把 源 程序 中 所 
有 的 请 句 行 按 行 苇 大 小 顺序 排列 好 ， 执 行 时 依 此 顺序 ， 行 号 不 一 定 要 连续 〈 例 如 上 例 中 两 行 
间 的 行 号 间隔 为 10), 以 便 在 修改 程序 时 增补 一 些 新 的 语句 行 。 例 如 在 行 号 为 10 的 语句 行 和 
行 号 为 20 的 语句 行 (为 方便 起 见 简称 为 10 行 和 20 行 , 如 果 该 行 只 有 一 个 语句 . 可 简称 为 10 
语句 和 20 语句 ) 之 间 ， 根 据 需 要 最 多 可 以 插入 9 个 语句 行 。 

行 结束 符 为 “ 回 车 换行 "， 从 键盘 按 “ 回 车 ”(RETURN 键 或 ENTER $) 表示 本 语句 行 到 
此 结束 。 

C) 一 个 语句 一 般 包 括 以 下 两 个 部 分 。 

名 语句 定义 符 。 它 规定 计算 机 执行 某 一 特定 的 功能 。 例 如 上 人 钢 中 10 语句 LET А=13. 
LET 就 是 - -个 语句 定义 符 . 意思 是 “赋值 "， 这 个 滞 句 通知 计算 机 把 13 这 个 值 送 到 A 中 (或 
者 说 ,把 13 这 个 值 赋 给 变量 A)。 除 了 赋值 语句 的 语句 定义 符 (LET) 可 以 省 写 以 外 ,一 个 语 
名 如 果 没 有 语句 定义 符 、 就 是 错误 的 ， 计 算 机 不 能 执行 此 语句 ， 并 打出 错误 信息 。 

名 语句 体 ， 即 跟 在 语句 定义 符 后 面 的 需要 执行 的 具体 内 容 〈 例 如 50 语句 ,需要 进行 的 
是 将 A，B，C，D 的 值 相 加 ， 然 后 将 它们 的 和 送 到 变量 TOTAL 中 去 ) 。 

在 某 些 语 名 体 中 还 包括 行 号 , 要 进行 语句 处 理 〈 例 姐 GOTO 语句 、GOSUB 语句 等 ), 我 们 
以 后 就 会 看 到 的 、 

《四 ) 每 个 程序 一 般 以 END 结束 。 执 行程 序 时 ， 遇 到 ЕМО 语句 便 停止 执行 。 

(五 》 当 一 个 程序 通过 输入 设备 〈 如 终端 显示 器 键盘 ) 送 入 计算 机 后 ， 就 存在 计算 机 内 ， 
计算 机 并 不 立即 执行 该 程序 。 必 须 由 使 用 者 再 单独 发 出 “运行 ”的 命令 RUN ， 计 算 机 才 开 始 
执行 该 程序 ， 一 直 执 行 到 END 语句 ， 计 算 机 就 停止 执行 此 程序 。 

例如 上 例 中 , 在 打 入 程序 后 , 再 打 入 RUN 命令 ， 则 计算 机 开始 执行 程序 ， 而 按 要 求 打印 
出 4.12499〈 即 AVER 的 值 ) 。 

程序 运行 完 后 , 并 不 从 计算 机 中 消失 , 如 再 一 次 打 入 RUN 命令 , 计算 机 就 使 该 程序 再 执 
行 - 裔 (在 上 例 中 又 打印 出 一 个 4. 12499 Ж), 但 是 如 果 使 用 者 又 输 入 一 个 新 的 程序 ,而 新 程 
序 的 行 号 与 原来 程序 的 行 号 完全 相同 , 则 计算 机 就 会 清除 原来 的 程序 面 以 新 的 程序 代替 它 , 也 
就 是 说 ， 如 果 以 同一 行 身 两 次 〈 或 更 多 次 ) 输入 不 同 的 语句 ， 则 计算 机 取 最 后 -次 输入 的 语 
句 行 。 

(六 ) 每 一 种 计算 机 系统 的 BASIC 分 别 规定 了 一 个 语句 行 最 多 包含 多 少 个 字符 。 例 如 MS 
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BASIC 多 许 一 个 语句 行 可 以 容纳 255 个 字符 。 当 给 入 程序 时 字符 超过 显示 器 荧光 屏 上 的 一 行 
(一 般 为 80 个 字符 ) 时 ， 会 自动 转 到 荧光 屏 的 下 一 行 接着 显示 。 但 在 计算 山内 仍 把 它们 作为 
同一 个 语句 行 处 理 。 有 的 BASIC 则 只 允许 在 一 邱 内 写 80 个 或 更 少 的 字符 。 


32.3 * £ 


程序 中 的 变量 是 指 在 程序 运行 过 程 中 其 值 可 以 变化 的 量 。 每 一 个 变量 在 肉 存 中 占 EN 
存 贮 单元 ， 在 其 中 存放 变量 的 值 。 可 以 形象 地 理解 : 每 个 变 基 为 一 个 匣子 ， 在 匣子 中 放 一 个 
数据 。 例 如 程序 中 10 语句 “LET A 一 13”， 意思 是 将 13 这 个 数据 放 到 名 字 为 A 的 变量 中 。 见 
图 2. 1. 


”一 个 变量 在 一 个 瞬时 只 能 存放 一 个 值 。 理 序 A B C€ D 
开始 运行 时 BASIC ËB ш FE rh ЕЩ — ОНУ m m) Б] E 
量 的 初 值 为 零 。 Azı 


每 一 个 变量 应 有 一 个 名 字 作 标 志 。 变量 名 的 命名 规定 随 不 同 的 BASIC 版 本 而 异 。MS BA- 
SIC 人 允许 变量 名 长 度 不 限 ， 旬 只 有 前 40 个 字符 有 效 。 变 量 名 的 第 一 个 字符 必须 为 字母 ， 其 后 
而 的 字符 可 以 是 字母 、 数字 和 和 小数点。 如: A, ВІ, G1B2, SHANGHAI, E. JOHN 都 是 合法 的 
变量 名 。 而 LIL- SCN，3AG4 为 不 台 法 。 

有 的 BASIC 版 本 对 变量 名 限制 比较 严格 ， 俱 如 Applesoft BASIC 只 允许 安 量 名 最 多 由 两 个 
字符 组 成 ‘第 一 个 字符 为 字母 )， 不 允许 出 现 小 数 点 。 

变 基 名 应 尽量 按 “ 见 名 知 闵 ”的 原则 命名 ， 以 便于 理解 其 含义 。 如 以 TOTAL 代表 “总 
AI”. Ш AVERAGE 代表 “平均 值 *，WAGES 代表 “工资 "、AMOUNT ÈE “ФЕ”, ALFA 代 
Жо, GAMA RE Y$. 

不 应 当 用 BASIC 的 保留 字 (包括 所 有 的 语句 定 义 符 、 命 令 、 函 数 名 和 运算 等 ， 见 附录 
Z) PREK. MSIN, LET, GOTO, END 都 不 能 作 变 量 名 。 

BASIC 变量 分 为 数值 变量 和 空 符 串 变量 两 大 类 ,前 七 音 接 触 到 的 主要 是 数 俯 变 量 , 第 八 章 
介绍 字符 串 变 量 。MS BASIC 的 数值 型 变量 还 有 整 型 、 实 型 、 双 精度 型 之 分 ， 详 见 第 十 二 章 。 


32.4 Ж 量 


BASIC 常量 分 为 数 倘 常 量 〈 即 常数 ) 行 字符 溃 常 量 《〈 即 字符 串 ) 。 

数值 常量 (常数) 有 以 下 表示 形式 。 . 

O 用 日 常 的 十 进 制 数 表 示 。 例 如 : 12, —34, 376.5, —87.103 等 。 朋 应 注意 在 一 个 数 
内 不 能 用 还 号 分 位 ， 如 1000000 不 能 写成 1,000,000。 

D 用 指数 形式 表示 。 在 数学 上 常用 指数 来 表示 很 大 的 数 或 很 小 的 数 , 例如 12 亿 可 表示 
为 1.2x 10°, 蜗牛 的 速度 0. 0000079 米 / 秒 , 可 写成 7. 9x10-* 米 / 秒 。 由 于 键盘 无 法 输入 上 背 
RTA, TEETER, 因此， 改 用 字母 E 表示 敢 方 队 底 数 10。 如 7. 9X107 在 BASIC 中 表 
RÄ: 


7.9 王 一 06 


数字 部 分 指数 部 分 
下 王 是 指数 形式 与 十 进 制 形式 对 应 关系 ， 


指数 形式 代表 的 数 

8. 675E+03 8. 675X 10* 

— 7683. 45E 一 12 — 7683, 45х10 Ë 
123. 674E 十 14 123, 674109 
6E7 6x10 


-个 数 林 以 表示 为 多 种 不 同 的 指数 形式 。 例 如 ，123. 456 可 以 表示 为 123. 458E0, 
12. 3456E]. 1. 23456Е2, 0. 123456E3, 1234. 56E— i, 12345. 6E 一 2，]23456E 一 3 等 ， 都 是 合 
法 的 .BASIC 规定 以 数字 部 分 有 一 位 { 且 只 一 位 》 章 零 整数 的 指数 形式 作为 标准 的 指数 形式 
《或 称 规 范 化 的 指数 形式 )， 例 如 上 面 各 种 指数 形式 中 ， 只 有 1. 23456E2 为 标准 的 指数 形式 ， 

对 BASIC 常数 有 两 点 要 说 明 : 

《1) 数 铭 范围 是 有 限 的 , RHA BASIC 版 本 规定 的 数 的 范围 不 同 , 如 MS BASIC 允许 一 个 
ЖЖ (以 Xx 表示 ) 的 范围 为 2.938736x 10-9 1х |1. 701412 10°. АА МЕЕ 
2.938736 X 10—29 的 数 按 C FEB С" ТОЕ". КЕЕ 1.701412 X 10% 的 都 按 上 限 包 处理, 并. 
Н “ШШ” Й (Overflow), Жр “LRE”. 在- - 些 BASIC 中 , 在 溢出 的 情况 下 程序 仍 可 继续 
运行 ， 但 显然 不 能 得 到 正确 的 结果 、 
(2) BASIC 所 部 接受 和 输出 的 有 效 数字 位 数 是 有 限 的 ,例如 MS BASIC 对 实数 〈 单 精度 
数 ) 可 以 接受 和 在 好? 位 数字 ,全 多 可 以 输出 7 位 头 定 . 但 只 有 前 6 位 数字 是 精确 的 (第 7 位 
有 误差 ) 。 

在 BASIC 中 覆 的 范围 各 有 效 位 数 有 限制 ， 是 由 于 在 计算 机 内 存 中 是 闵 有 限 的 内 存单 元 来 
存 迪 一 个 数 的 。 

需要 说 明 : 在 计算 由 内 部 是 以 二 进 制 数 形式 存 贮 和 运算 甬 ， 而 在 BASIC 程序 中 是 用 十 进 
制 数 形 式 表 冰 的 , 轩 户 不 必 身 己 将 十 进 抽 数 化 成 二 送 制 形式 ,程序 输入 计算 机 后 ,由 BASIC Ж 
统 自动 转换 。 


32.5 标准 函数 


人 们 常常 需要 进行 一 些 竺 定 的 运算 , 例如 求 Sinf ，cos *，inz，eyv z 等 .为 了 方便 使 
用 者 , BASIC 提供 了 - 批 标准 函数 , 把 常用 到 的 一 些 函数 运算 编写 成 一 个 个 子 程序 , ЖАҢ 
E, 用 户 在 编程 序 时 , 不 必 自 己 查 表 或 计算 、 只 需 写 出 一 个 函数 名 并 给 定 自 变 量 参 数 , BASIC 
系统 就 能 给 击 函 数值 。 例 如 执行 以 下 语 知 ， 

10 PRINT SIN (3.14159/4) 

会 打印 出 sin45" 的 值 (在 BASIC 中 三 角 函 数 中 角度 的 单位 一 律 为 “弧度 ”而 不 是 “ 度 "。 因 此 
л/4 弧度 就 是 459.) 

每 种 BASIC 版 本 提供 的 慰 准 函 数 有 所 不 同 ，MS BASIC 的 函数 很 丰富 见 附录 二 )， 党 用 
的 函数 及 其 含义 岳 表 2. 1 所 示 。 
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8 *& = & Ж 32 1 
ижи 功 能 Га k 
SIN GO) sinx HEE RAIER 
Cos (X) cosx PERRIER 
НН, ME, D.E: x MORE a/2 (或 /2 的 奇数 信 ;。 
TAN (X) tanx _ 
由 tanx 可 能 会 越 证 计 算 机 允许 的 上 限 值 而 溢出 
АТМ X) tan-lx ВАЗИ ЦО ри A. —a/2< А Ca /2 
logex СЕР е 为 底数 的 对 数值 。 у 
106 00 BER A RIRH Inx) k 
e=2. 718280. 注意 x 的 值 不 应 使 了 数值 输出 计算 机 允许 的 
EXP (X) e 
| 8 
SQR OO x 的 平方 根 〈 止 根 ? | * 应 大 十 或 等 上 0 
ABS (X) x 的 纵 对 信 |x| 
INT (X) 求 不 大 于 w 的 最 大 整数 如 : INT (一 8 的 一 一 9， INT(8.6)=8 
FIX (X) Ж x RERE П: FIX (—8.6)-=--8, FIX(8.8)=8 
1 Өңл>б› 
SGN (X) БА SGN (х) -| 0 (x= 
一 1 (m x<0) 
产生 (0, D 区 网 的 一 个 一 般 BASIC 规定 x HAER LER, RIER. MS BASIC 
RND | (X) J ' И i | 规定 RND (0) j (O. D 则 的 随机 数 ,RND (1) 得 到 上 一 次 


均匀 分 布 的 熏 机 数 


j 的 随机 数 ， RND (N) 得 到 1—N 间 的 随机 整数 


注意 : 自 变 基 应 该 用 括 弧 括 起 来 , 例如 зов (4,5), LOG (X) 是 正确 的 ,而 SQR4. 5, LOGX 
是 不 正确 的 函数 表示 ， 系 统 会 把 它们 作为 变量 名 处 理 ， 


2. 6.1 


$2.6 


Ж š Á 


所 有 BASIC 都 提供 以 下 几 种 算术 运算 符 ， 

+ ӨЮ, — ( 减 )，* GR), / (BE, A (#7) 
W: Зх т 3* 5A2. 
MS BASIC 还 提供 : N (整除 )，MOD《〈 求 余 ) 两 种 运算 符 . 如 : 5\з=1 (除数 和 被 除数 均 
为 整数 得 到 商 也 为 整数 )}，5 MOD 3 的 值 为 2。 
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2.6.2 算术 表达 式 


在 数学 中 ， 翅 用 运算 符号 和 和 括号 将 常数 、 变 量 、 函 数 连 接 起 来 的 有 意义 的 式 子 称 为 代数 
KER, 如: Y—2+SIN (X 十 5)。 И. 在 BASIC 宁 把 符合 BASIC 规定 的 ， 用 运算 符 和 括号 
将 常数 、 变 量 、 函 数 连 接 忌 来 的 式 子 称 为 BASIC ЯЗА, йг. 


5*ХА2—3+#Х —2*5ГЧ(А)/3 
它 是 一 个 BASIC 算术 表达 式 ， 相 当 于 通常 的 代数 式 : 


2sin4 
3 


应 当 特别 注意 的 是 : 在 BASIC 的 算 不 表达 式 中 ， 每 一 个 符号 攻占 一 砍 ， 所 有 符号 都 必须 
一 个 一 个 并 排 地 写 在 万 一 模 线 上 ， 不 能 在 右上 角 或 右 下 角 写 方 次 或 下 标 (如 2:，Xz 等 )。 
下 面 列 举 一 些 代数 式 与 BASIC 算术 表达 式 的 对 照 : 


54% 一 3z 一 


赛 2 2 
上 є 数 R l BASIC 算术 表达 式 
圆周 长 4 2a PLx R( 其 由 PI 一 3. 14159) 
miret + ољ 
simi REN kamus osTHAsTA272 
复 利 公式 P hte P. (+n AN 
二 角形 面积 Ma) Gb) 320 SQR (S+ (S—A) + 185—8) + (5—0) 


2.6.3 ZAM 

жй, BEI. M Orb НБЛ ЯЕ: IRR. E BASIC 中 不 分 
K. p 3838. (о. TUE C › PRA CO, + ЛИЕШ ЖЕГЕНИ 
号 的 配对 关系 。 

HA 2.2 来 委 示 优先 次 序 ， 


©) ЕСС 


ж || 二 ,一 


例如 2 *SIN (3 < X; 
+ + 
Ф ® 
PAE ПУР З tai, 
求 出 SIN (3 x X) 后 才 进 行 求 5 次 方 的 运算 , ЖН E ABI RRR, Восс Баай, 最 后 加 
8, . 
19 


ЗЕ, SR BASIC 表达 式 的 正确 形式 为 (A+B) /(C 十 D， 而 不 能 写成 


A 十 B/C 十 D。 


TRASK. 


527 用 传统 流程 图 表示 工法 


在 第 一 章 中 已 说 明 ， 在 编写 程序 之 前 ， 应 当先 确定 数据 结构 和 算法 ， 对 于 -~ 些 管 单 的 问 
证 而 言 ， 数 据 结构 是 比较 简单 的 ， 因 此 主要 是 设 斗 算法 ， 即 具体 描述 解 题 的 步骤 。 可 以 用 谍 
然 语 言 来 描述 一 个 算法 , 但 自然 语言 往往 有 “歧义 性 ”， 即 富 一 说 法 可 以 有 不 同 的 理解 , 不 严 
将 。 常 用 流程 图 夹 表 示 一 个 算法 。 如 本 章 $ 2. ? 求 平均 成 续 的 例题 ， 可 以 用 图 2, 3 流程 到 来 夫 


32.3 


C 
L 

一 一 
9 · 


| 
© 


图 2.4 


每 一 个 框 为 写 一 个 或 几 
个 操作 ， 用 租 头 指 止 执行 各 
ERDE. WUER, AW 
程 图 表示 操作 步骤 形象 易 理 
解 ， 用 流程 图 可 以 帮助 我 们 
整理 思路 、 表 达 算 法 、 理 解 
程序 ,对 于 简单 的 程序 设计 ， 
可 以 不 必 先 面 流程 图 而 直接 
写 出 程序 《如 上 面倒 子 ), 但 
对 于 比较 复杂 的 题 E， 要 一 
下 子 正确 写 出 程序 是 不 容易 
的 , 先 要 用 流 能 图 表示 算法 ， 
由 于 流程 图 比较 直观 地 表示 
出 解 题 步 又 ， 有 错 也 容易 发 
现 ， 直 到 认为 滞 程 图 完全 正 
确 才 杠 据 它 来 编程 序 。 

常 月 的 流程 到 符号 如 图 
2.4 所 示 。 

图 2, 4 中 的 也 是 “起 止 
ЖЕ", И ЖЖТЕП Н 
Ж, OE ЧЕ". 用 来 
表示 一 般 的 处 理 或 运算 ， 它 
有 一 个 入 口 、 一 个 出 口 , 不 
ЕЛЕ, @ É “М 
杠 ”, 有 一 个 入 口 ,二 个 出 ， 
根 志 给 定 的 条 件 是 否 满足 决 
TARR PTE I H, 


是 “输入 输出 框 ”"， 表 示 计 算 机 蛤 入 或 输出 数据 ，@ 是 “流程 线 "， 用 来 表示 流程 的 路 径 和 
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方向 ; @ 是 “连接 点 


”， 表示 将 两 个 流程 图 中 各 自 的 某 一 点 连接 起 来 。 当 个 流程 图 在 一 页 纸 


内 画 不 下 时 可 以 用 “连接 点 ”表示 从 本 页 某 一 点 〈 出 口 点 ) 连接 到 下 页 某 一 点 〈 入 口 点 )。 


Сел. 11 用 流 和 


RARR: ЖУЙ ae 十 好 十 ce 一 0 的 根 。 


见 图 2. 5。 为 简单 起 见 ， 如 果 如 一 4ac < 0, 只 打印 出 “ 复 根 ” 的 信息 ， 不 具体 计算 复 根 。 
从 图 可 以 看 到 “判断 框 ”的 作用 。 在 框 内 写 一 个 条 件 , 根据 条 件 是 否 满足 (以 “是 ”"、“yes”、 
“ 真 ”代表 条 件 满足 ， 以 “ 否 ””“NO”、“ 假 ”表示 条 件 不 满足 ) 决定 执行 哪 一 种 运算 。 


— [92 2) 从 终端 键盘 
КИА, HEMETR 
加 起 来 〈 输 入 一 个 ， 累 加 一 
个 ， 打 印 累加 该 数 后 的 和 )， 
直到 输入 的 数 是 负数 为 止 ， 

设 一 变量 SUM 用 来 存 
放 每 次 累加 后 的 和 《SUM 的 
初 值 自动 为 零 ), 变量 < 用 来 
存放 从 键盘 输入 的 值 。 每 输 
入 一 个 z 后 ， 判 断 它 是 否 大 
FRETE, PENY M 
到 SUM 中 并 打印 此 时 SUM 
之 值 ， 然 后 再 返回 输入 下 一 
个 * 值 ,重复 以 上 操作 ,直到 
z<0 为 止 , 见 图 2.6, 本 以 看 
出 ， 用 流程 图 表示 循环 操作 
是 很 方便 而 又 直观 的 。 
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Š 2.8 结构 化 程序 设计 要 点 和 人 NN-S 结构 化 流程 图 


用 上 而 介绍 区 流程 图 区 传统 流程 图 ) 符号 表示 算法 虽然 直观 ， 但 占 篇 师 大 ， 尤 其 是 它 
允许 用 流程 线 任意 转移 去 向 ,如 昊 这 种 情况 过 多 ， 就 会 使 流程 无 规律 地 转 来 转 去 ， 如同-- 团 
乱 降 一 样 , 分 不 清 其 来 龙 去 脉 , 见 图 2. 7。 这 种 程序 称 为 BS 型 程序 (BS 是 a Bowl of Spaghetti 
的 编写 . 意 为 "一 碗 面条 ” 似 的 程序 , 搅 成 一 团 )。 这 种 程 证 无 任何 规律 可 当 , ЛЕЕ, 
难以 捉摸 设 计 者 的 思路 。 因 此 ， 在 初学 种 序 设计 时 ， 应 该 养 成 一 种 良好 的 习惯 。 程 序 应 当 是 
深思 部 虚 、 精 心 设计 的 结果 ， 面 不 谱 当 是 随心 所 窝 、 东 拼 西 凑 区 产物。 无 规律 的 转向 太 多 就 
会 造成 程序 设计 和 论 查 的 固 难 ， 增 加 程序 出 错 的 可 能 ， 降 低 程 序 的 质量 。 

为 了 括 高 猩 序 的 易 读 性 {容易 理解 ), 保证 和 三 序 质量 , 降低 软件 成 本 , 荷兰 学 者 Dijtctra 等 
提出 了 “ 结 罗 化 程序 股 计 方 泛 "。 它 的 要点 主要 尾 ， 

O 程序 的 质量 标准 是 “清晰 第 -, 效率 第 二 ."。 而 过 去 是 把 效率 放 在 第 一 位 ,往往 为 了 
节约 一 点 运行 时 间 与 内 存 空间 ,有 了 - 些 “ 小 技巧 "、“ 小 聪明”， SE A Й, FERE 
民 。 现 在 把 清晰 放 存 第 一 位 ， 因 为 程序 是 写 给 入 家 看 的 ， 在 使 下 中 经 党 要 地 已 收 改 、 MRE 
让 人 化 大 量 时 介 才 能 看 仙 亡 ， 从 整个 世 会 所 花 的 劳动 量 来 看 . 是 很 大 的 滚 费 。 
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D 要 求 程序 设计 者 接 一 定 规范 书写 程序 ,而 不 能 随心 所 欲 地 设计 程序 。 过 去 的 BS g Ж 
如 同 手工 业 方式 ,程序 如 同 “ 艺 术 品 ”一 祥 ， 风 格 因 人 而 异 。 现 在 主张 按照 “工程 化 ”生产 
方法 来 组 织 软件 生产 ， 每 个 人 都 必须 按照 同一 规则 ， 同 -方法 进行 工作 ， 使 生产 的 软件 有 统 
一 的 标准 、 统一 的 风格 ,成 为 “标准 产品 "， 便 于 推广 、 便 于 生产 和 维护 。 这 就 要 找到 一 种 标 
准 化 、 规 范 化 的 产品 式 的 程序 设计 方法 ， 

O 结构 化 程序 设计 方法 规定 几 种 “基本 结构 "， 用 它们 作为 构成 程序 的 基本 单元 , ШЕ 
建筑 房屋 用 的 标准 预制 件 一 样 。 每 一 种 基本 结构 完成 一 种 类 型 的 操作 序列 。 由 这 些小 单元 顺 
序 组 成 一 个 大 结构 ， 这 种 结构 就 避免 了 “任意 转向 ”的 缺点 ， 是 具有 良好 结构 的 程序 ， 下 面 
介绍 的 三 种 基本 结构 就 属于 这 样 的 基本 结构 。 

(4) 一 个 大 的 程序 开发 应 当 采 取 “ 自 顶 向 下 、 逐 步 细 化 ， 和 模块 化 ”的 方法 。 邵 将 一 个 
大 任务 完 分 成 若干 个 子 任务 ， 每 一 个 子 任务 就 是 一 个 模 决 ， 如 果 荣 一 子 任务 还 是 太 复杂 ， 还 
可 以 再 分 解 为 若 于 个 子 任务 ， 如 此 逐 层 分 解 。 对 每 一 个 模块 的 设计 也 是 采取 这 种 “ 自 顶 向 下 
逐步 细 化 " 的 方法 , 将 它 分 解 为 上 述 的 基本 结构 为 止 。 这 如 同 写 文章 一 翌 ， AARTEN, 8 
到 哪里 写 到 那里 ， 而 有 人 则 先 所 出 总 题目 和 中 心 内 容 ， 再 确定 分 为 几 大 部 分 ， 每 一 大 部 分 又 
分 为 哪 几 节 ， 每 一 节 分 为 几 眉 ， 每 一 段 包括 哪 几 个 意思 ， 有 了 这 样 通航 考虑 的 提纲 后 ， 文 章 
的 结构 一 般 说 是 比较 清楚 的 ， 考 虑 是 周全 的 ， 不 易 发 生 遗 漏 。 这 就 是 自 顶 向 下 、 逐 步 细 化 的 
方法 。 


结构 化 程序 的 三 种 基本 结构 是 : 
《1) 顺序 结构 ， 见 图 2. 8。 这 是 最 简单 的 一 种 结构 。 各 块 是 按 它 们 出 现 的 先后 顺序 执行 


(2) 选择 结构 ， 见 图 2. 9。 根 据 给 定 条 件 是 否 满足 决定 执行 a 块 或 5 块 。 

《3) 循环 结构 ， 见 图 2. 10 和 图 2. 11。 

图 2. 10 所 示 是 “ 当 型 循环 ”， 即 “ 当 给 定 条 件 满足 时 反复 执行 块 ， 直 到 条 件 不 满足 为 
JE”, 图 2. 11 所 示 为 “直到 型 循环 "， 即 “反复 执行 a 块 ， 直 到 给 定 满足 为 止 >。 以 上 一 者 的 区 
别 基 :“ 当 型 循环 ”是 “ 先 判 断 (条 件 ) 后 执行 〈 循 环 体 a 块 )”， 而 “直到 型 循环 ”是 “ 先 执 
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r--- 一 一 


图 2.10 图 2.11 

行 (循环 体 ) 后 判断 〈 条 件 )”。 可 以 认为 ， 直 到 型 循环 是 当 型 循环 派生 出 来 的 一 种 循环 形式 ， 
它们 二 者 是 可 以 互相 转换 的 。 图 2. 8 一 图 2. 11 中 的 a 块 或 b 块 ， 可 以 是 一 个 简单 的 操作 
(一 个 语句 ), 也 可 以 又 是 一 个 基本 结构 , 例如 图 2. 8 中 的 a 块 又 可 以 是 一 个 顺序 结构 . 因此， 
图 2，3 可 以 认为 是 一 个 大 的 顺序 结构 ， 它 包含 几 个 小 的 顺序 结构 。 

以 上 三 种 基本 结构 具有 以 下 共同 特点 。 

(1》 只 有 一 个 入 口 、 一 个 出 口 。 注 意 是 指 上 述 各 图 中 的 虚线 框 《 即 整 个 结构 有 一 个 入 
口 一 个 出 口 ,不 要 和 虚线 内 的 蓉 形 框 有 两 个 出 口 相 混 清 。 

(2) 通过 该 结构 中 的 任 一 部 分 都 应 当 存 在 着 一 条 从 入 口 到 出 口 的 路 径 ， 也 就 是 说 结构 中 
每 一 部 分 都 有 机 会 被 执行 到 ， 即 没有 “ 死 语 句 ”{ 永 远 执行 不 到 的 语句 ) 。 

(3) 没有 “ 死 循 环 ”( 即 永远 执行 不 完 的 循环 )。 

具有 以 上 特点 的 结构 称 为 “ 良 结构 ”( 或 “合适 结构 ”)， 结构 化 的 程序 是 由 一 些 良 结构 单 
元 构成 的 。 

既然 结构 化 程序 是 由 具有 良 结构 特性 的 基本 顺序 组 成 ， 不 允许 无 规律 的 转向 ， 因 此 流程 
图 中 的 流程 线 就 可 以 省 去 了 。 根据 美国 学 者 ! Nassi 和 B. Schneiderman 1973 年 提出 的 方法 的 
基础 上 形成 了 一 种 适 于 结构 化 程序 设计 的 流程 图 , 被 称 为 “N - S 结构 化 流程 图 " sk “N — S 流 
程 图 "，N，S 是 他 们 二 入 姓名 的 首 字母 。 它 用 以 下 三 种 基本 成 份 表示 三 种 基本 结构 。 

D 顺序 结构 ， 见 图 2. 12。 


图 2. 12 图 2.13 
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(2) 选择 结构 ， 见 图 2. 13。 
(3) 循环 结构 。 图 2. 14 为 “ 当 弄 循环” 结构， 图 2. 15 为 “直到 型 循环 ”结构 。 


ай 
直到 给 定 剃 件 p 满足 上 


图 2.14 图 2.15 


【 例 2.3】 用 N-S 流 程 图 表示 图 2.3 所 示 算 法 。 
见 图 2. 16。 


A-B-C-D > TOTAL 


@ 2.16 


【 例 2. 4] 将 例 2. 1 的 图 2. 5 改 用 N -5 图 表示 。 见 图 2. 17。 
【 例 2. 51 将 例 2, 2 的 图 2. 6 AH N-S 图 表示 。 


图 2.6 不 是 结构 化 的 ， 它 不 是 由 三 种 基本 结构 组 成 的 ， 先 对 它 作 一 些 改 换 ， 使 之 成 为 由 


基本 结构 组 或 。 图 2.18 与 图 2. 6 是 等 价 的 。 图 2. 18 中 的 品 线 框 是 一 个 “ 当 型 循环 ”。 
是 由 三 种 基本 结构 组 成 的 结构 化 的 算法 。 可 以 用 NS 图 表示 之 ， 从 图 2. 19 可 以 看 到 
一 个 顺序 结构 ， 包 括 一 个 输入 的 操作 和 一 个 当 型 循环 。 


2.18 


， 它 是 


关于 结构 化 程序 设计 方法 在 本 章 中 只 作 初 步 介 绍 ， 在 以 后 各 章 中 逐步 展开 ， 读 者 将 会 看 
到 如 何 设计 一 个 结 化 的 程序 。 对 结构 化 程序 设计 方法 欲 进一步 了 解 的 可 参阅 本 书 参考 资 


8 [2]. 
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最 后 要 说 明 -点 : 流程 图 是 画 给 人 看 的 ， 而 不 是 给 计算 机 看 的 ， 因 此 局 中 的 文字 和 符号 
只 要 符合 人 们 的 约定 或 习惯 即 可 ,人 们 据 此 写 出 的 高 级 语言 程序 则 是 要 输入 骏 计算 机 处 理 的 ， 
语句 必须 严格 符合 语法 规定 。 


118 SUM 


习 题 


2.1 诗 分 析 BASIC 语言 的 优 缺 点 以 及 它 的 适用 领域 ， 了 拥 和 扔 述 你 所 用 的 BASIC 语言 
版 本 的 特点 与 功能 

2.2 ВАС 程序 申 的 行 号 有 什么 作用 ? 

2.3 BASIC ЭЕ ЖК БИКЛЕ А? 你 用 的 BASIC 版 本 对 变 荆 名 有 外 人 么 规定 ? 请 写 出 5 个 
合法 的 变量 名 和 5 TERNERA. 

2.4 把 下 列 各 数 抽 口 常 记 数 法 转 效 成 指数 表示 形式 或 由 指数 表示 形式 转换 成 日 常 记 数 
法 。 р 


件 )。 


(1) 5423456 <3) 0. 9999999 


(2) 7123456000000 (42 0. 0000000004 
(5) 8. 67876E 十 8 ‹7)3. 1415928E 十 9 
(6)0.123456E 6 (822. 567Б—12 
2.5 把 下 列 代数 式 用 BASIC RERE: 

2 63 о (25п48°)" ,ms 
Depari Dan OSa 


SEIRENA N-S 习 表 示 下 列 问题 (2. 6—2. 10) 求 解 的 算法 。 

全 6 有 两 个 变量 a,b, 将 它们 的 俯 互 坎 。 

2.7 送 入 计算 机 10 个 学 生 的 成 绩 , 要 求 将 其 中 不 及 格 的 党 数 打印 出 天 。 

в 求 : 一 2 一 810, 即 加， 

2.9 给 出 二 角形 二 边 a,b,c, 求 三 角形 面积 (要 求 先 验 笋 abe 是 本 符合 构成 一 角形 的 条 


2.10 REE am е 08) СВ 4 87 — Дас 等于零 、 小 于 符 和 大 于 零 三 种 情况 。 


如 果 4<0, 则 分 别 打印 出 复归 的 实 部 和 虚 部 )- 
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第 三 章 ”顺序 结构 程序 设计 


在 本 章 中 我 们 介绍 几 种 简单 的 语句 ,并 由 它们 组 成 顺序 结构 。 这 些 语句 包括 赋值 语句 、 输 
人 输出 语句 、 停 语句 ,它们 都 是 简单 的 操作 语句 ,不 具有 控制 流程 的 作用 。 


$ 3.1 赋值 语句 (LET 语句) 


赋值 语句 是 将 一 个 确定 的 值 赋 给 一 个 变量 。 如 : 

10 LET A=10 
表示 将 10 赋 给 变量 A ,执行 赋值 语句 后 A 的 值 为 10。 

说 明 : . 

(1) 赋值 语 句 中 的 “=” 号 是 “赋值 号 ”。 赋 值 号 的 作用 是 将 它 右 边 的 一 个 确定 值 赋 给 它 左面 
的 一 个 变量 ,赋值 语句 的 一 般 形式 为 : 

LET 变量 二 表达 式 

例如 : 

10 LET X=3xY+1.5 
执行 过 程 是 ， 中 先 计算 表达 式 的 值 ，@@ 将 该 值 感 给 - 变量。 因此， 赋值 语句 具有 计算 和 赋值 
双重 功能 , 先 计算 后 赋值 ,BASIC 程序 中 的 计算 功能 主要 是 由 赋值 语句 完成 的 ,如 第 - 章 32.2 
程序 中 求 TOTAL 和 AVER 的 值 都 是 由 赋值 语句 完成 的 。 

D 可 以 对 一 个 变量 多 次 正 值 ， 每 次 赋值 后 新 值 将 取代 变量 中 原 有 的 人 如 ， 

10 LET A=5 


А A A 


30 LET А=2+*10 图 3. 1 


20 LET A=10 


见 图 3，1， 在 程序 开始 运行 后 ， 在 执行 10 语句 前 A 的 值 为 0， 在 执行 10 语句 后 ，A 的 值 为 
5， 在 执行 20 语句 后 A 的 值 为 10， 在 执行 30 语句 后 , A 的 值 为 20。 每 一 个 瞬时 一 个 变量 只 
能 有 一 个 唯一 的 值 。 

(3) 不 要 把 赋值 号 与 数学 中 的 等 号 混 清 。 等 号 表示 其 两 侧 的 值 相 等 ， 市 赋值 号 的 作用 是 
将 一 个 值 赋 给 一 个 变量 ， 下 面 两 个 语句 的 作用 是 不 同 的 : 

10 LET A=B (将 B 的 值 赋 给 A) 

10 LET B=A (将 A 的 值 赋 给 В) 
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[Б] КАИ SS MI РЗ ЖЕЛ сааи WM: 
20 LET C=A—B 
天 能 写成 ， 
20 LET А+В=С 
RAPES = B ЖЕЛЕК ЖЕЕ: С 的 值 不 可 能 涂 记 一 个 各 为 “A 十 B” 的 变量 中 去 。 赋 值 
号 左边 只 能 是 一 个 变量 名 ,不 能 向 “个 表达 式 距 值 。 
在 BASIC 程序 中 常常 月 到 像 下 面 这 种 形式 的 匡 值 语句 ， 
10 LET X=X+1 
它 表示 将 X 的 坚信 加 т, 把 它们 的 和 再 送 回 变量 X 中 。 ШЖ X 原 值 为 5, 则 X 03082 5, 见 
图 3. 2。 ` 
(4) 在 大 多 数 BASIC 版 本 中 ,允许 在 赋值 语 
тз Ен Ире ЖТ “LET”, 下 面 两 个 语句 是 等 


价 的 ， 
ХО) Хей» 
+ 5> C] 10 LET A= 
p emam 
Ш> BAR “LET” ш. 在 思想 上 仍然 要 记 住 SIER 


值 ， 不 是 相等 ”， 千 万 不 要 误 认 为 4 等 于 B。 
O -个 赋值 语句 只 能 给 一 个 变 址 赋值 ， 下 面 三 个 的 值 语 多 的 用 法 是 错误 的 : 
10 A=B=C=4 СВЕ ОА, В, С) 
20 А, B, C=4 ОЯНА ЕА, В, C) 
30 LET А=1, В=2, С=3 GRI 1, 2, ЗЛИВА, В, C) 
上 面 30 语 训 应 改 为 ， 
30 LET A=]: LET B—2:LET C=3 
或 30 A 一 1: B 一 2 : C 一 3 
(6) 将 一 个 变量 A УВ, EA BREE A 之 值 ， 开 变量 A 的 值 保持 
AR. KARUA "A 的 全 被 取 走 了 赋 纶 8*。 实 世上 是 从 内 存 中 变量 A 的 存 贮 单 元 中 “该 
出 ”数值 赋 给 B。 可 以 从 一 个 寞 量 中 多 次 “ 读 出 ”数据 进行 运算 或 贼 给 其 它 变 量 , 例如 : 
10 A=3:B=A: C=A : D=A 
AT 10425, EE A, B. C. D 的 值 均等 于 3。 


53.2 输出 语 身 (PRINT 语句 和 LPRINT 语 身 ) 


3.2.1 PRINT 语句 的 竺 用 


程序 运算 得 到 的 结果 一 般 都 要 通过 PRINT 语句 (或 LPRINT 语句 ) 给 出 ， 使 用 户 能 够 看 
到 。 几乎 所 有 程序 都 包括 PRINT 语句 . PRINT 洪 色 的 作用 是 将 变量 或 表达 式 的 值 输 出 到 终端 
ERRERA. PRINT HA RARR: 
PRINT ë 输出 项 表 列 
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D 输出 数值 表达 式 的 什 
PRINT 语句 中 的 输出 对 项 可 以 是 数值 常 车、 开 基 或 下 达 式 ， 例 如 : 
10 PRINT 3, А, B, C+D 
к. ЖЫ, ЖЕЗ ЫЛЕ 种 形式 。 因此 , 可 以 这 样 说 : PRINT BBS Ц RARE. TA 
行 以 卜 10 ПИАЖЕ. 
10 PRINT (C2+3)/2, 2+4, 3.5«d 
RUN 
2.5 8 22 
可 以 看 到 : PRINT Аа AEDE, 先进 行 运算 , 然后 净值 输出 。 寻 果 在 PRINT 
语句 中 的 喜 这 式 中 包括 变 基 ， 则 这 些 变 基诺 当 事 先 已 被 赋值 ， 和 否则 按 鹤 处 理 . 如 ， 
20 PRINT X, X |Y. (C+D) /8 
车 事 先 未 对 以 上 各 变量 丈 值 ， 则 运行 缚 果 为 ， 
RUN 
0 0 0 
(2) 用 PRINT 语 名 除了 可 以 输出 数值 外 , ЖЕРИН FAE, 字符 由 是 指 用 引号 括 起 来 
的 字符 - ZE PRINT 诸 句 中 如 果 包 括 字 徐 串 ， 风 该 字符 串 被 原样 输电 WH: 
10 PRINT “THIS 15 А BASIC PROGRAM. ” 
2@ END 
RUN 
THIS IS А BASIC PROGRAM. 
可 以 看 到 字 答 迪 被 原样 输出 ,但 应 注意 作为 字符 串 起 上 符号 的 引号 不 输出 ,BASIC 中 的 引号 是 
KRAJE e MAEI OO H AURS O RE, EER PANA. 
H “ж” SE.) 
如 果 有 以 上 语句 ， 
10 PRINT “4116” 
运行 时 输出 决 不 是 20， 而 是 : 
4 十 16 
常用 PRINT 语句 既 输 出 数值 表达 式 的 值 ， 又 输出 所 需 的 字符 率 信 息 ， 如 : 
10 PRINT “4 十 16"，4 十 16 
20 END 
RUN 
4 十 1 一 20 
常用 来 对 给 出 的 数 重 作 文字 说 明 ， 如 : 
10 LET Х=3, 11159 +10/2 
20 PRINT "ох 
30 END 
RUN 
x= 311.159 
应 当 指 出 有 些 初 党 者 突 易 混淆 的 问题 : 
C) PRINT X, Y 这 个 语 所 询 运 行 半 果 是 打印 出 X 和 Y ТН. :而 有 些 读 者 误 以 为 会 打印 
30 


НЕР x” f “Y” Ж, 

D 有 的 初学 者 守 出 如 下 形式 的 语句 ， 

10 PRINT X=3*x*5 

原意 是 希望 运行 后 能 打印 出 一 15"。 但 这 个 语句 的 格式 是 错误 的 PRINT 语句 只 能 打 
包 出 表达 式 的 值 或 字符 串 ， 而 不 能 起 赋值 作用 ， 因 此 ,“ 一 ”号 只 能 出 现在 字符 申 中 ， 应 改写 


10 PRINT “K=”, 3*5 


3.2.2 PRINT 语句 的 输出 格式 


程序 计算 的 结果 往往 是 一 大 批 数 据 ， 为 使 输出 结果 清晰 ， 人 们 往往 对 输出 的 格式 有 不 同 
HHR, BASIC 的 输出 语句 提供 了 多 样 的 功能 。 
(1) 按 标准 格式 〈 标 准 位 置 ) 输出 。 
如 果 在 PRINT 语句 中 各 输出 项 之 间 用 如 导 分 隔 , 则 输出 时 各 值 分 别 输出 在 各 个 标准 位 置 
+. BASIC 把 每 一 行 分 为 车 干 个 区 域 ， - 股 每 个 区 为 14 列 ， 一 行 包含 5 个 区 , 各 输出 的 值 自 
左 而 右 依次 输出 在 各 区 内 ， 从 各 区 最 左 画 开始 输出 。 如 。 
10 PRINT 2, 4, 6, 8, 10 


20 END 

RUN 

ШУ ШИ ab 8 —10— 

| 第 l 区 1 第 2 区 | 第 3 区 | 第 4 区 | 第 5 区 


可 以 看 到 2，4，6，8，10 分 知 出 现在 5 个 输出 区 内 ， 在 输出 数值 时 ， 如 果 是 正 数 则 自动 在 数 
前 芥 一 空 洛 ， 蔷 如 第 1 区 中 ， 第 - ' 列 为 空格 A S RRE, 第 2 列 是 数值 “2”， 输出 
数值 后 ， 空 一 格 ， 其 它 四 个 区 情况 相似 。 如 果 答 出 的 是 负数 ， 则 不 留 空 格 ， 在 本 区 中 第 一 列 


输出 一 个 负 号 ， 如 ， 
10 PRINT —1, —2, —3 
输出 为 
4 一 6 
[к 第 2 区 第 3 区 | 


如 果 输 出 的 是 字符 串 . 则 从 各 区 的 第 1 列 开始 输出 〈 没 有 符号 位 )， 如 ， 
10 PRINT “X”, “Y”, “Z” 


输出 为 ， 
x Y z 
< 第 1 区 一 | 第 2 区 ~ |183 R | 


如 果 输 出 项 超过 5 项 ， 则 在 输出 一 行 (5 个 值 后 ) 自动 换行 到 下 一 行 继续 按 标准 格式 输 


10 PRINT 1, 2, 3, 4, 5, —1, —2, —3, —4 

输出 为 

ші] — 2 m3 u4 i5 
一 上 一 2 -3 一 4 


(2) 按 紧凑 格式 输出 。 
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如 果 在 PRINT 语句 中 各 输出 项 间 以 分 号 分 隔 ， 则 以 紧凑 格式 输出 一 个 数据 紧 跟着 前 一 


个 数据 输出 )。 
10 PRINT 1; 2; 3; 4; 5; >l; —2; 一 3 —4; —5 
20 END 
RUN 
ай лазе а афа аб TS 05 


请 注意 “1” 和 “2” 之 间 有 二 个 空格 ， 其 中 一 个 是 输出 数值 “1” 后 输出 的 空格 ， 第 二 个 空格 
是 数 “2” 的 符号 位 。 在 “一 1” 和 “一 2” 间 只 有 一 个 空格 ， 它 是 输出 数值 一 1 后 输出 的 空 
格 。 

但 是 应 当 注 意 : 字符 串 之 同 用 分 号 分 隔 时 ， 在 输出 时 它们 之 间 不 留 空格 。 

10 PRINT “I”, “AM”; “A”; “PROGRAMMER” 

20 END 

RUN 

IAMAPROGRAMMER 

如 果 在 PRINT 语句 中 各 输出 项 之 间距 有 用 有 逼 号 也 有 用 分 号 分 隔 的 ,分 别 按 标准 格式 和 紧 
瘘 格式 处 理 ， 凡 遇 逗 号 就 跳 到 下 一 个 区 接着 输出 。 


10 PRINT 1; 2; —3, 4; 5, 6, 7; —8; 9, 10 
输出 为 : 
Lo 3 di 5 g завоч 110 


< 一 第 1 区 - 一 | 一 第 2 区 一 一 | < 一 第 3 区 一 ~~| 一 一 第 4 区 一 一 | 二 一 第 5 к—| 
(3) 输出 行 的 控制 

ОШ Ж. PRINT 语句 末尾 无 分 号 或 进 号 ， 则 输出 完 本 行 后 自动 换行 ; 

@ Ж PRINT 语句 末尾 为 分 号 , 输出 完 本 语句 规定 的 各 项 后 不 换行 , 按 紧 凌 格式 在 本 行 
上 接着 输出 下 一 个 PRINT 语句 中 第 一 个 输出 项 (以 后 各 项 按 规定 接着 输出 )。 

OMR PRINT 语句 以 名 号 结尾 , 输出 完 本 语句 规定 的 各 项 后 不 换行 ,在 本 行 下 - -个 输出 
区 输出 下 一 个 PRINT 语句 的 第 一 项 (以 后 各 项 按 规定 输出 )。 ， 

OPRINT 语句 中 无 任何 输出 项 , 则 输出 -个 空 行 ， 这 称 为 “ 空 PRINT 语句 ”。 当空 PRINT 
语句 前 的 一 个 PRINT 语句 最 后 带 有 一 个 逗号 或 分 号 时 ， 此 空 PRINT 语句 只 是 起 到 抵消 前 而 
那个 逗号 或 分 号 的 作用 。 例 如 ， 

10 PRINT 1, 2, 3; 

20 PRINT 4; 5, 

30 PRINT 6, 

40 PRINT 

50 PRINT 7, 8, 

60 PRINT 

70 PRINT 9 

80 END 

RUN 
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-! É: 8 — 45 -6 


请 注意 4 紧 连 在 3 之 后 , 6 与 5 同一 行 (6 在 下 -个 输出 区 )， 如 果 无 40 语句 ， Mj 7 应 与 
6 在 同 -- 行 上 , 由 于 有 了 40 语句 使 之 换行 , 所 以 7 输出 在 下 一 行 上 , 它 的 作用 是 抵消 了 30 语 
句 末 尾 的 分 号 。50 语句 作用 相似 。 

应 当 说 明 , 不 同 的 BASIC 版 本 对 输出 格式 有 不 同 的 规定 ， 例 如 有 的 规定 一 行 只 有 四 个 标 
准 输出 区 , 有 的 (如 Applesoft BASIC) 规定 在 输出 数值 时 既 不 留 符号 位 (对 正 数 ) 又 不 留 尾随 
室 格 。 如 ; 

10 PRINT 1; 2; —3; 一 4 

输出 为 ， 

12 一 3 一 4 

显然 这 种 格式 是 不 好 的 ， 数 据 间 无 清晰 的 分 界线 。 

除了 以 上 介绍 的 以 外 , BASIC 还 提供 其 它 输出 格式 (如 TAB 函数 、SPC 函数 、PRINT US- 
ING 语句 等 )， 详 见 第 六 章 和 第 十 章 。 

归纳 起 来 ，PRINT 语句 的 一 般 格式 为 ， 


PRINT (KARRI (03 
3 
其 中 方 揪 红 表示 其 内 是 可 选项 《该 项 可 有 可 无 )， 花 括 弧 表 示 从 其 中 几 项 中 任 取 一 项 ， 
вен, ж *.” 或 有 -个 “1”， 或 二 项 都 没有 。， 
3.2.3 实数 的 输出 形式 


-个 实数 在 内 存 中 是 以 二 进 制 的 指数 形式 存储 的 , 在 输出 时 ,实数 有 时 以 小 数 形式 输出 ， 
有 时 以 指数 形式 输出 。 例 如 : 


хаа 输出 形式 
123. 456 123. 466 
一 0. 025 一 0. 025 
0.00001 0.00001 
©. 00000123456 1. 23458Е—06 
—12345689 —1. 234569Е-+-06 


它 的 原则 是 : 当 以 ? 位 或 少 于 7 位 数字 能 精确 地 表示 出 该 数 时 ， 就 以 小 数 形式 输出 〈 如 

上 表 中 第 1~3 行 ), 否则 就 以 指数 形式 输出 (上 表 第 4、5 行 )。0. 00000123456 这 个 数 如 果 用 

小 数 形式 输出 只 能 得 到 7 位 数字 ， 即 0. 0000012， 把 有 用 数字 “23456” 丢 失 了 。 第 5 行 “ 一 

12345689” 有 8 位 数字 ， 超 过 了 系统 允许 的 有 效 位 数 ， 无 法 表示 ， 改 用 指数 形式 才能 较 准 确 

地 表达 该 数 ， 对 第 8 位 按 四 舍 五 人 处 理 ， 得 一 1. 234569。 以 上 判断 处 理 是 由 BASIC 系统 自动 
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ЖТ. ЧЕ ЖЕЕ ЖӨБ CN HM. 律 采 用 标准 化 的 指数 形式 “如 1.23456r - 08, 
一 1. 984569E 十 06， 小 数 点 前 有 电 只 有 一 位 间 洗 的 数字 )。 

用 指数 形式 输出 站 为 了 保利 能 输出 七 位 有 用 数字 ,应 省 说 明 : 不 区 的 BASIC 版 本 在 实现 
EREKE. 


3.2.4 LPRINT #5] 


E PRINT 语句 可 以 将 输出 信息 输出 到 时 示 器 蔚 光 屏 上 ，MS BASIC ЕВЕ УТЕ. 
输出 的 语句 一 一 LPRINT 语句 : 它 的 功能 和 PRINT 完全 想 同 ,只 是 不 在 显示 器 上 输出 而 在 打 和 名 
BEG. т: 

10 LPRINT 1; 2. 3 
{ки ЕЧ 

1.2 3 

EPLF ЕЕ Н PRINT 诗句 和 LPRINT 语句 ,可 以 根据 需要 将 -部 分 信息 输出 到 台 示 

BE ЕШ ВА u НТА. IH а R: BC 3 BASIC 版 本 都 提供 LPRINT 语句 的 。 


53.3 键盘 输入 语句 (INPUT 1#@)) 


INPUT 遍 句 用 于 从 键盘 给 入 值 给 变 草 , ШАЙ. {ЕТЕДЙ Н! ЕБ Е ka 9 8 ДУ. 变 


30 PRINT > 

30 END 

RUN 

зу 

9 

计算 机 执行 到 INPUT RAR, 就 个 下 来 显示 出 一 个 “?”, 意思 是 向 筑 用 老 询问 INPUT iÉ 
句 中 的 变量 的 什 。 第 用 党 应 该 从 键盘 上 输入 所 需 的 值 ， 然 后 接 回 车 键 ， 于 是 这 个 数 信 就 峰 给 
相应 的 变量 , 继 着 计算 机 再 继续 执行 夸 面 药 浅 句 。 在 上 面 程序 运行 记录 中 ,3 和 回 车 是 使 用 
者 从 键盘 打 入 的 (xx 这 个 符 坪 并 不 在 终端 显 尽 器 上 显示 出 来 ) .9 是 程序 执行 到 20 语 千 时 显示 
ЖИН. 

用 一 个 INPUT Ж], MRA EDERE. 

四 INPUT 语句 的 好 处 在 于 可 以 根据 需要 在 多 次 运行 程序 时 给 一 个 变量 赋予 不 同 的 值 . РА 
提高 程序 的 通用 性 。 

【 例 3. 13 有 一 电路 С 3. 3). ЖАНЕ А 和 电流 I。 
求 并 联 电阻 的 公式 为 : 
! _ 1 


=! ++! 

RTR TR LR TR. 
电流 I 为: 

izuR= Б) 

И R, К, R; R, 
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如 果 用 赋 信 语句 给 Ro R. R. R AURE ЖШТ. 

10 LET В1==100 

20 LET R2=150 

30 LET R3=240 

40 LET R4=360 

50 LET U=24 

60 LET R=1/ (1/R1+1/R2+1/R3+!/R4) 

70 LET I=U/R 

80 PRINT К, I 

99 END 

如 果 电 路 中 的 参数 改变 了 ， 例 如 : R=50, R100, Rs=500, R,—=1000, U=220, 那么 
需要 重 写 10 一 50 语句 。 若 要 计算 多 个 具有 不 同 阻 值 的 电路 ,， 则 需 多 次 修改 程序 ， 豆 然 是 十 分 
不 方便 的 。 可 以 用 INPUT 语句 方便 地 解决 这 个 问题 

10 INPUT RI, R2, R3, В4, U 

20 R=1/ (1/R1+1/R2+1/R3+1/R4) 


30 1=U/R 

40 PRINT “R=”; R, "|=", 1 

50 END 

在 显示 屏 上 看 到 的 运行 情况 如 下 : 

RUN 

2 100, 150, 240, 360, 24 

R=42. 35565 1—. 5666667 

如 果 阳 值 和 电压 改变 了 ， 需 要 重新 计算 ， 不 必修 改 程序 ， 只 需 再 运行 一 次 ， 输 入 不 疝 的 
信 妈 可。 如 : 

RUN 

2 50, 100, 500, 100, 220,7 

只 一 23. 80953 1 -9.239999 


显然 这 是 很 方便 的 。 为 了 使 用 户 知道 , “现在 应 该 输入 哪 几 个 变量 的 信 ”, 可 以 在 执行 IN- 
PUT 诸 句 时 让 系统 显示 用 广 所 指定 的 “提示 信息 ”.。 可 以 在 INPUT 语句 中 加 入 “提示 信息 ” 部 
分 。 如 : 
10 INPUT “INPUT RI, R2, R3, R4, U=”; RI, R2, R3, R4, U 
引号 中 就 是 用 户 指定 的 “提示 信息 ”。 
程序 运行 记录 如 下 : 
35 


R1, R2, R3, R4, U=? 100, 150, 240, 360, 24,⁄ 
及 一 42. 35295 1=.5666667 
其 中 带 下 划 线 的 部 分 是 用 户 从 键盘 输入 的 。 这 个 10 语句 相当 于 下 面 两 个 语句 : 

5 PRINT “INPUT RI, R2, R3, R4, U=”; 

10 INPUT R1, R2, R3, R4, U 

INPUT 语句 的 一 般 格式 为 : 

INPUT [“ 提 示 信 息 ”;] 变量 [， 变 量 ] 
其 中 省 咯 号 “…” 表 示 它 前 面 的 项 ( 即 [ знарок нт ІҸРОТ А,В,С), 

如 果 想 不 输出 提示 信息 后 面 的 “?”, 可 以 将 INPUT 语句 中 “提示 信息 ”后 面 的 分 号 改 为 去 
号 。 如 : 

10 INPUT “INPUT R1,R2,R3,R4,U=”,R1,R2,R3,R4,V 

执行 此 语句 的 记录 如 下 ， 

INPUT КІ,82,83,84,0-=100,150,240,360,24;/ 

使 用 INPUT 语句 时 有 几 点 应 注意 ， 

(1) 输 入 数值 的 个 数 应 与 INPUT 请 名 中 变量 的 个 数 一 致 ,数据 输入 后 按 次 序 输 给 相应 的 
变量 如果 输入 数据 的 个 数 多 于 或 少 于 变量 的 个 数 ,BASIC 系统 会 显示 出 一 个 错误 信息 “RE 
DO FROM START,。 "要求 用 户 重新 输入 所 需 数 据 。( 不 同 的 BASIC 系统 对 此 处 理 方法 不 同 ,有 
的 BASIC 对 输入 的 多 余 的 数据 认为 无 效 ,如 果 数 据 个 数 少 于 变量 个 数 , 则 在 下 一 行 又 显示 出 
一 个 “?" 或 “??”, 要 求 用 户 继续 输入 其 它 的 数据 ,直到 满足 要 求 为 止 ) 。 

(D INPUT 语句 输入 的 数据 只 能 是 常数 ， 不 多 许 是 表 这 式 或 变量 、 函数 。 如 下 面 的 输入 
是 错误 的 。 

INPUT RI,R2,R3,R4,U=? 2% 50,600/3,20Л2,В,508Т(460,5)к^ 

INPUT 语句 常用 于 参数 变化 、 要 进行 不 同 参数 的 运算 结果 比较 的 情况 。 在 设计 中 ,常常 需 
要 使 一 个 或 几 个 参数 变化 ,并 观察 其 计算 结果 ,这 时 可 利用 INPUT 语句 , 边 计算 边 修改 参数 ， 
直到 得 到 满意 的 结果 为 止 。 

《3)INPUT 语句 的 输出 和 输入 是 可 以 在 显示 屏 上 看 得 见 的 ,如 果 使 用 长 城 (或 IBM PC) 的 
MS BASIC( 即 BASICA) ,在 打印 机 上 只 能 得 到 LPRINT 语句 所 输出 的 结果 而 不 能 得 到 INPUT 
语句 所 处 理 的 输出 和 输入 情况 ,此 时 可 以 在 程序 中 另 加 一 个 LPRINT 语句 将 所 需 数 据 打印 出 
来 ,例如 例 3. 1 程序 可 以 改 为 ， 

10 INPUT “INPUT RI,R2,R3,R4, U=”;R1,R2,R3,R4,U 
15 LPRINT “INPUT R1,R2,R3,R4,U=2?")R1:“,”.R2:“,”,R3;“,”,R4 2,” U 
20 R=1/G/RI+1/R2+1/R3-F1/R4) 


30 I=U/R 

40 LPRINT “R=”;R,“I=”;I 

50 END 
在 运行 时 在 打印 机 输出 以 下 信息 ， 
INPUT RI,R2,R3,,R4,U=? 100,150,240,360,24( 由 15 语句 输出 
R= 42. 35332 І= .5666615 GH 40 语句 输出 ) 


此 外 ， 在 显示 屏 上 显示 ， 
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INPUT RJ, R2, R3, R4, U=? 100, 150, 240, 360, 24 
* + 
10 语句 输出 的 字符 串 从 显示 器 键盘 输入 
注意 ， 用 LPRINT 语句 只 能 在 打印 机 上 输出 ， 而 不 能 在 显示 屏 输出 。 


$3.4 读数 语句 (READ 语句 ) 和 置 数 语 身 (DATA #4) 


除了 可 以 用 赋值 语句 和 INPUT 语句 给 程序 中 的 变量 赋值 之 外 ， 还 可 以 用 READ 语句 和 
DATA 语句 使 变量 得 到 值 。 例 如 对 例 3，1 可 以 用 READ/DATA 语句 编写 程序 如 下 : 

[0]3.2] 求 并 联 电阻 R 和 电流 I 

10 READ R1, R2, R3, R4. U 

20 DATA 100, 150, 240, 360, 24 

30 R=]/ (1/В1-Е1/82-Е1/®3-Е1/®4) 

40 I=U/R 

50 PRINT "R=", R, "I=", I М 

60 END 

运行 结果 与 以 前 相同 ， 说 明 如 下 ， 

(1) READ 是 读数 语句 ， 它 基 执 行 语句 , 它 的 作用 是 从 程序 中 的 DATA 语句 中 取 数 据 依 
次 送 给 READ 语句 中 的 变量 。 上 物 中 ,将 100 送 给 Rl1，150=>R2, 240=R3, 360=R4, 24=> 
О. Ж, ЕНН READ 语句 则 必须 有 DATA 语句 。 

(2) DATA 语句 是 非 执 行 语句 ， 它 本 身 不 产生 任何 操作 ， 它 的 作用 只 是 放置 数据 以 供 
READ 语句 使 用 ,因此 DATA 语句 中 的 数据 个 数 应 不 少 于 READ 请 句 所 需 的 变量 个 数 (DATA 
语句 中 数据 个 数 如 多 于 READ 语句 所 需 个 数 , 多 余 的 数据 不 起 作用 )。DATA 语句 有 如 放 货物 
的 仓库 ，READ 语句 相当 “ 取 货 员 ”, 根据 领 货 单 从 仓库 中 取出 货物 。DATA 语句 中 各 个 数据 
闻 以 逗号 分 隔 。 

(3) DATA 语句 可 以 出 现在 程序 中 任何 位 置 , 可 以 在 READ 语句 之 前 , 也 可 以 在 其 后 , 可 
以 与 READ 语句 相 邻 也 可 以 不 相 邻 。 习 惯 上 把 DATA 语句 集中 放 在 程序 最 前 头 或 程序 最 后 
(END 语句 之 前 )。 效 果 完 全 相同 。 正 如 有 一 书架 放 书 ， 只 要 书架 中 的 书 次 序 不 变 ， 不 论 书架 
搬 到 室内 任何 角落 ， 找 到 书架 后 ， 拿 到 的 第 一 本 书 是 不 会 变 的 。 

(4) 一 个 程序 中 可 以 有 多 个 DATA 语句 。 在 程序 输入 计算 机 后 , BASIC 在 内 存 建立 一 个 数 
据 区 ， 将 DATA 语句 中 的 数据 按 出 现 的 顺序 放 到 数据 区 内 ， 如， 

10 READ А, В, C. D. E, Е, G 


120 DATA 1,2 
130 DATA 3, 4, 5, 6 
140 DATA 7, 8. 9, 10 
数据 区 见 图 3. 4 示意 。 如果 将 120 行 的 行 号 改 成 为 5， 使 DATA 语句 分 隔 开 ， 在 内 存 中 
数据 状况 不 变 ， 仍 如 图 3. ат. 
可 以 认为 数据 区 有 一 “数据 指针 ”， 开 始 时 指向 第 一 个 数据 〈 图 中 中 位置) ， 当 读 完 第 一 
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个 数据 (由 给 变量 A) 后 ,指针 自动 移动 指向 下 一 个 数据 ( 见 
З). 以 后 每 读 一 个 数据 措 针 下 移 一 个 位 置 , pai 
READ 语句 后 ， 指 针 位 置 如 仿 、 

如 果 程 序 中 有 多 个 READ HA, ШИЖ READ 语句 中 变 
Ж БЛЕР РӘК А. DATA 语句 “ 玫 数 "。 第 一 个 READ 语 
句 咎 的 变量 从 程序 中 行 导 最 小 的 DATA 语句 中 的 第 一 个 
数据 开始 读数 。 当 第 一 个 DATA 语句 中 的 数 已 被 读 完 ， 指 
针 就 移 到 第 二 个 DATA 语句 的 第 一 个 数据 前 ， 并 接着 往 下 
i, MRR DATA 语句 中 的 数据 多 于 第 一 个 READ E 
句 中 变 基 的 个 数 ， 则 第 二 个 READ 语句 中 的 变量 接 着 读 第 
一 个 DATA 语气 中 未 被 读 过 的 数据 , 依 此 类 推 。( 从 图 3. 4 
看 这 个 过 程 是 很 铺 楚 的 ， 因 为 变量 从 教 据 区 中 顺序 读数 》 

《5)DATA 语句 中 只 能 出 现 常量 , 不 能 出 现 表 达 式 或 变 
量 、 函 数 ， 下 面 写法 是 不 合法 的 ， 

100 РАТА 5/2. 2* 3, SIN(6.5) 


(6) 如 果 所 有 的 DATA 语句 中 数据 的 个 数 比 READ 语句 所 需 的 救 章 少 ， 就 会 出 更“ 数据 


区 无 数据 可 读 ” 的 错误 ,系统 显示 出 “Out of data” 的 错误 。 
(7) READ ЯП DATA 语句 的 -- 般 档 式 为 ; 
READ 变量 〔【， 变 量 ] … 
DATA 常量 [， 常 量 ] … 


$3.5 ЖЯ ЖЈЕБ 1 0) (RESTORE 6 J) 


WR РАТА 语句 中 的 数据 是 重复 的 或 一 部 分 是 重复 的 ， 可 以 用 RESTORE 语气 重复 使 用 


DATA ЕК ЙИШ. БШ. 
10 READA, B, C, D, Е 
20 READM. N, O, P, Q 
30 READ V, W, X. Y, Z 


80 DATA 1, 2, 3, 4, 5 
99 DATA1, 2, 3, 4. 5 
100 РАТА 1, 2, 3, 4, 5 


ВОЛ 100 语句 中 的 数据 是 完全 重复 的 ,可 以 设想 ， 在 读 完 第 一 组 数据 (1. 2, 3, 4, 5) 
后 四 果 能 使 数据 区 指 生 恢 复 到 起 既 位 置 , 那么 这 组 数 沁 又 可 以 再 使 用 一 遍 。RESTORE 语句 的 
作用 就 是 使 数据 拦 寺 恢复 到 起 始 位 置 或 指定 的 其 它 位 置 )"， 程 序 可 小 为 : 


10 READ A. B, C, D. Е 
15 RESTORE 
20 READM, N, O. P, Q 
25 RESTORE 


30 READ V, W, X, Y, 2 


100 РАТА 1, 2, 3, 4, 5 

在 执行 10 语句 前 ， 数 据 指针 为 图 3，5 РО, WRA 15 语句 ， 则 执行 10 诸 句 后 ， 
DATA 语 句 中 数 已 读 完 ， 指 针 位 置 如 图 中 国 位 置 ， 本 来 已 无 数 可 读 。 有 了 15 语句 ， 使 指针 重 
新 加 到 DATA 语句 中 的 第 一 个 数据 СЕРА 1) 2 АТ GORE), 执行 20 语句 时 , 又 从 1 起 


读数 。 


25 语句 的 作用 与 15 语句 相同 。 


图 3. 5 Шз 6 


当 重 复 利用 的 数据 请 多 ，RESTORE 请 句 的 优 工 性 就 愈 明显 。 
如 有 果 只 需要 重复 使 用 一 部 分 数据 ， 可 以 在 RESTORE 语句 中 指出 行 导 ,如 : 


10 
20 
30 
40 
50 


READ А, В, C, D, E, Е 
RESTORE 110 

READ G, H, І, J, K 
RESTORE 120 

READ L, M, N 


100 DATA 1, 2, 3 

110 DATA 4, 5 

120 DATA 6, 7, 8, 9, 10 

开始 时 指针 位 置 为 图 3. 6 HORR, 执行 完 10 语句 后 指针 位 置 如 加 所 示 。 执行 20 语句 
后 指针 位 六 如 岛 所 示 《指针 恢复 到 110 语句 中 第 一 个 数据 处 ) ， 执 行 完 30 语句 后 指针 位 置 为 
DR, WT 40 语 名 后， 指针 位 置 如 @ 示 ， 执 行 完 50 语句 后 指针 位 改 如 人 @ 示 。 此 时 各 变量 的 
值 如 表 3. 1, 
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RESTORE Ж ЕИ —5 5 


RESTORE 


[ 行 号 ] 


要 注意 的 是 , RESTORE 的 作用 是 使 DATA 语句 中 的 数据 从 头 或 指定 的 位 置 开 始 , 而 不 是 
使 程序 加 到 第 一 个 READ RE, RAXA READ 语句 中 的 第 一 个 变量 重新 读 起。 这 一 点 初学 


ARREDRE 


58. 6 


Z= 44 3k 184545 д) ЫЙ 


在 BASIC 中 可 以 用 LET } И], INPUT 语句 和 READ/DATA 语句 给 变量 浊 供 所 霸 的 数据 ， 
这 三 物语 句 各 有 特点 。 LET 滞 句 除了 用 来 给 变量 赋值 之 外 , 它 的 主要 优点 是 能 够 进行 运算 .如 
果 要 赋值 的 变量 较 多 ， 风 用 READ/DATA 语句 比 较 方 便 。 INPUT 语句 适合 于 变量 的 值 事先 未 
确定 或 参数 值 有 变化 需要 进行 试验 比较 的 情况 。 具 体 比 较 见 表 3. 2。 


LET 


READ/DATA 


INPUT 


L FREE рн EH 35 Et 
EH 


2. 每 一 个 LET 语句 只 能 给 一 个 变量 
к 


一 对 READ/DATA 请 包工 以 给 才 
| е 


一 个 3NPUT 请 名 可 以 给 才 个 变量 
Я 


2. RERUM EBE, АН 


ттн 


етю 


4. ЖЕТЕТ ШӘ НЕ} 
ЕИ ОЕ GOTO 语 各 或 循 
环 语 名 使 一 望 变 胡 获 不 同 的 伍 》 


在 ЧЕН ИГЫ SE — ASEE 
ЖЕКО сото 语句 或 循环 语句 使 
Еа 


жати КУ аа 
人 不 同 的 数值 给 同一 变量 《用 сото 
语句 或 循环 滞 蕊 使 看 序 几 次 读数 》 


5， 运 生 后 立 导 出 结 困 占 机 器 时 同 少 


айта ЫНА Ж. 占 志 器 时 间 
® 


ЗЕЙ ЖЗ ЕНЕТИЙ А. 占 机 器 时 
ШЕ 


в. ИДЕЯ ( 即 可 用 表达 式 给 变 
RRD 


Н 


ATARAR, DATA 语句 中 只 
HAB. 不 能 号 表达 式 


AT UETAN, REAREA 
常数 ， 不 能 输入 志 达 式 


T. 适合 于 总 需要 十 值 的 变量 少 .不 移 
反复 计算 和 比较 茄 单 的 程序 。 GHE 
ЖИЛ LET IS Е 


Касен. A Wr £ АА 
ERED HEF 


атте ®®. Ж ГЕНӘ 
кше РЕ. ы 


40. 


§ 3.7 END {4 я STOP 84) 


3.7.1 END 语句 


一 个 程序 应 当 有 一 个 END 语句 ， 以 终止 程序 的 执行 ， 一 般 它 出 现在 程序 最 后 一 行 ，MS 
BASIC 也 允许 它 出 现在 程序 中 任何 位 置 ， 而 有 的 BASIC 要 求 程序 最 后 一 行 必 须 是 END И), 
我 们 建议 应 养 或 程序 最 后 写 END 语句 的 习惯 , 这 祥 符合 硕 序 阅读 程序 的 习 鱼 ,最 后 一 行 完了 
程序 就 结束 。 


3.7.2 STOP 1 #710 CONT 命令 


STOP th H] ЖЖ |= SEP 39 3427328 P| BASIC 状态 ,在 执行 STOP 语句 时 ,会 显示 出 以 下 信 
RB: 

Break in nnnnn 
其 中 nnnnn 代表 行 导 的 数字 , 它 是 STOP 译名 的 行 呈 。 在 程序 遇 到 STOP 党 句 中 浙 运 行 后 , 可 
以 用 CONT 命令 使 之 从 中 断 处 恢复 运行 , 也 可 以 用 键盘 命令 打印 出 当时 (暂停 后 ) 各 有 关 变 量 
їй. 

【 例 3.3】 输入 三 角形 三 边 A，B,，C， 求 三 角形 面积 。 

10 INPUT А, В. C 

20 PRINT A+B—C, B+C—A, С+А—В 

3С STOP 

40 S= (A+B+C) /2 

50 AREA=SQRT (S+ (S—A) ж (5—В) < (5—6) 

6t PRINT AREA 

99 END . 

EHAA, B, CE, 要 检查 一 下 它们 是 否 能 交 成 三 角形 (三 角形 二 边 之 和 亦 大 于 第 三 
10), 20 语句 显示 出 三 个 什 , 执行 30 滞 句 使 程序 中 断 ， BR: “Break in 30”, 用 户 恰 查 这 三 个 
值 是 否 大 于 零 ， 如 都 大 于 零 ， 表 示 数 据 合适 ， 可 以 接着 计算 三 角形 面积 ， 此 时 严 从 键盘 打 人 入 
以 下 命令 : 

CONT, 
使 程序 从 中 断 处 恢复 运 生 (CONT 是 Continue HRG), IRS ED Ы Fil LEK 
FTF, RAPIP, 而 应 当 午 新 运行 , 输入 另 一 组 六 ,B,C 的 值 , 也 可 以 用 GOTO 10 使 
之 回 到 10 уж. 

FA STOP 语句 程序 中 断后 ， 各 变 重 的 信和 DATA 滞 名 中 的 数据 指 壬 都 保 鲤 暂停 前 的 情 
bu, 例如 变量 六, В. C 的 值 仍 保持 不 变 , 可 以 在 中 产后 用 PRINT 语句 显示 出 各 序 中 各 变量 当 
时 之 值 。 也 可 以 用 键盘 命令 直接 改变 变量 的 值 ， 例 如 ， 

LET A=£ 
LET B=6 
LET C=4 
然后 用 “GOTO 20” W) 20 语句 处 继续 执行 。 


常用 STOP 语句 和 CONT 命令 来 进行 程序 的 调试 , 比较 方便 。 但 如 果 在 中 断 期 间 对 程序 作 
了 修改 ， 就 不 能 再 用 CONT 命令 。 

STOP 语句 和 END 语句 不 同 ,STOP 语句 不 关闭 文件 ,而 END 语句 则 关闭 程序 中 所 有 文件 
(有 关 文 件 的 概念 见 第 十 一 章 ) 。 


$3.8 ж ж ж 例 


到 目前 为 止 ， 我 们 已 能 够 用 所 介绍 的 语句 进行 简单 的 程序 设计 了 。 
【 例 3. 4】 “人 造 卫星 围绕 地 球 表面 做 近似 圆周 运动 , 卫星 轨道 距 地 面 ” 米 高 时 的 圆周 运 
ДЖ У. ОКИ) 为 : 


7900 VR 
МЕТЕ 


是 地 球 半径 ~6. 37154109 米 。 在 某 一 特定 高 度 上 ， 卫 星 脱 离 轨道 的 速度 为 : 
rv 


r= 


алтей 


ре 
Бе] 
С] 


Ува д, 计算 卫星 的 圆周 速度 和 脱离 轨道 的 速度 《用 于 米 /小 时 单位 ) 以 及 
环绕 地 球 -- 周 所 害 要 的 时 间 T 《用 分 表示 )。 
对 这 样 比较 简单 的 问题 可 以 很 快 地 画 出 顶 旦 的 N 一 S 流程 图 。( 图 3. 7). Si 和 Ss 两 步 是 
比较 简单 的 ， 无 需 细 化 。 对 S 可 以 进一步 细 化 如 图 3. 8。 至 此 ， 可 以 根据 流程 图 写 出 程序 。 
10 R 一 6. 37154E6 (ШЕЕ) 
20 INPUT “ENTER НЕІАНТ;”, H 
30 VC=7900* SQR (R)/SQR(H+R) 
10 VE=VC+*SQR (2) 
50 C=2 +» 3.14159 * (H+R) ск —Ж Н) 
60 T=C/vC (飞行 一 周 的 时 间 ， 单 位 : 8 
70 D=3600/1000 (化 成 干 米 /小 时 单位 应 乘 的 系数 ) 
80 VC=VC* D; VE=VE*D 《化 成 干 米 “ 小 时 单位 ) 
90 т/60 (化 成 分 ) 
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100 PRINT “УС=”, УС; “KM/HOUR” 


110 VE; “KM/HOUR” 
20 ; T; “MINUTES” 
993 
RUN 


ENTER HEIGHT; 20090x 

VC= 28395, 17 KM/HOUR 

VE= 49157. 26 KM/HOUR 

TIME- &4. 85691 MINUTES 

【 例 3. 5] 分 期 付款 的 计算 。 如 果 你 从 银行 借 了 EKD, BAERE Н RA 
РМА Кара (M) 才能 还 清 。 
计算 还 完 此 款 所 需 多 少 习 的 公式 为 : 


logP — Iog(P — D X R) 


M log( | + R) 


可 直接 写 出 程序 ， 

10 INPUT “LOAN LIMITS;"”; D 
20 INPUT “INSTALLMENT 
30 INPUT “INTEREST: 
#0 K=P/(P—D* R) 
50 A=LOG(K)/LOG (10), B=10G (I+R) /LOG (10) 

60 М-А/В 

1% PRINT “LCAN МТБ", “é”, D 

80 PRINT “INSTALLMENT:”, “”, P 

90 PRINT “NUMBER OF ІМТЕКЕЅТ.", "”, R 

100 PRINT “NUMBER ОЕ INSTALLMENT;”, М 

999 ЕМО 

BASIC 中 函数 LOG (X) 代表 In z (以 * ЖЕ), 而 不 代表 Тох. BIES logo 


) , 也 就 是 ов 


= P А F 
A LOG (Ху /LOG (10), 50 行 第 一 个 语句 求 的 4 是 1o&k, B) ово Се рр 


P — loge (P — DX R). 
运行 记录 为 : 
RUN 
LOAN LIMITS; 20007 MARED 
INSTALIMENT; 100 《每 时 归 还 数 》 


INTEREST, . 012 (H Ay 

LOAN IIMITS: 2000 

INSTALLMENT; 100 

INTEREST; 0° 

NUMBER OF INSTALLMENT, 23.00668 (ЖБ ИЕН» 
ЖЕРШДЕП ТАЕ. 分 析 70 一 90 语句 中 的 第 一 对 引导 【“ O 的 作用 。 


处 困 诅 对 得 到 的 结果 进行 四 全 志和 处 理 (A23. 00663 户 应 输出 2% КАЗ, 有 什么 办 法 吗 ? 
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下 面 介绍 一 种 方法 ， 对 一 个 数 于 四 舍 五 入 的 方法 是 , Y=INT (X —0. 5), HË; 

X =24.49, W| X +0.5=24.99, INT (X +0.5) =24, 

X =24.51 WJ X -+0 5—25.01, INT (Х—0.5) =25, 

四 舍 五 入 能 实现 方法 请 读者 仔细 理解 清楚 。 

车 着 望 输出 月 数 为 杯 数 四 会 二 人) 可 以 将 60 语句 改 为 ， 

60 M=INT (A/B+0, 5) 

EH. SAAE, E M36362 3323 H Head), B BES Р (Бес). 求 鸡 免 各 有 多 
DR? KEK PRE: 

а) 先 列 寺 解 此 问题 的 方程 式 。 设 鸡 为 工 只 ， 免 了 只 。 


X+Y=H (1) 
= +Y =F (2) 


D RERI f y АЖ. 


@җ—2хФ@зҗ._ 2 =F—2H рҮ 


4х2 җ — DA: 2X=4H —F AX 


以 上 这 两 步 是 属于 数学 上 的 方法 问 恶 ， 在 此 基础 上 才能 编写 程序 (有 的 初学 者 企图 在 程 
序 中 直接 写 上 方程 中 、@@ 式 ， 然 后 运行 ， 忆 为 计算 机 自己 会 解 出 方程 ， 这 是 误解 。 任 何 的 数 
值 计算 问题 都 首先 要 建立 数学 模型 ， 并 利用 数学 上 的 知识 找 出 解 题 的 方法 ， 计 算 矶 只 能 进行 
数据 的 比较 和 运算 ,并 输出 结果 >。 

北 题 可 以 用 LET 语句 、INPUT 语句 或 READ/DATA 语句 编 守 程 序 。 今 用 READ/DATA 语 


名。 
10 
20 
30 
40 
50 
60 


READ H, F 

LET COCK= {49 HF) /2 

LET BABBIT= (F—2*H) /2 

PRINT “HEAD=”; Н, “FEET="; F 

PRINT “СОСК="; COCK, “RABBIT=”, RABBIT 
DATA 18, 40 


70 END 

RUN 

HEAD 一 .6 FEET= 40 
COCK 一 12 RABBIT 一 4 


读者 应 开始 学 习 编 写 程序 并 上 机 调试 自己 所 编 的 程序 。 
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83.9 怎样 输入 和 运行 一 个 BASIC 程序 


在 学 完 这 一 章 后 ,已 经 能 够 编写 - 些 简单 的 BASIC 程序 了 ， 如 果 有 条 件 的 话 ， 应 当 进行 
土 机 练习 、 掌 握 如 何 输 入 和 运行 一 个 BASIC 程序 的 方法 。 

假设 已 在 纸 上 写 好 了 一 个 BASIC 源 得 序 ， 上 机 操作 的 步骤 如 下 。 

(1) 开机 后 , 先 将 BASIC 解释 程序 调 入 内 存 , 如 果 使 用 IBM - PC (或 长 城 0520), 可 以 键 
A “BASICA” (IBM PC 上 使 用 的 MS BASIC 的 版 本 )， 并 按 “ 回 车 ” 键 ， 当 显示 屏 上 出 现 
“OK” 字 样 ， 表 示 已 进入 BASIC 状态 ， 可 以 输入 BASIC 的 命令 或 语句 。 

D 在 每 次 送 入 一 个 新 的 程序 之 前 ,应 在 从 键盘 上 打 入 NEW 命令 〈 打 入 NEW 三 个 英文 
字母 ， 再 按 “ 回 车 ” 键 )， 以 清除 计算 机 内 原来 有 的 程序 。 

G) 按照 写 好 的 源 程 序 ， 按 行 逐个 打 入 字符 。 每 打 完 一 语句 行 都 要 按 “ 回 车 ” 键 ， 表 示 
本 行 输入 结束 一般 BASIC 允许 一 个 语句 行 可 以 容纳 255 个 字符 ,而 一 般 显 示 屏 .上 的 -行内 
能 容纳 80 个 字符 . 如果 输入 的 一 个 语句 行 超过 80 个 字符 , 在 输入 80 个 字符 后 , 不 必 按 回 车 
键 ， 显 示 屏 上 的 光标 会 自动 移 到 下 一 行 的 开头 ， 可 以 接着 输入 其 余 的 字符 ) 。 

(4) 如 果 发 现 当前 正 输 入 的 语句 行 上 (尚未 按 “ 回 车 ” 键 时 ) 打 错 了 一 个 或 玫 个 字符 , 这 
时 可 按 “*” 键 ， 每 按 一 次 “<” 键 ， 光 标 就 回 退 一 格 ， 把 刚才 打 入 的 字符 取消 〈 字 符 从 屏 
幕 消 失 )， 可 以 连续 按 若 十 次 “<*-” 键 米 删 去 前 面 儿 个 字符 ， 然 后 打 入 正确 的 字符 。 但 如 果 已 
按 了 “加 车 ” 键 就 不 能 用 “<-” 键 米 删 字 符 。 

O 如 果 想 取消 程序 中 某 一 语句 行 ， 可 打 人 入 该 行 的 行 号 青 按 “ 回 车 ” 键 ， LL sa 
Ж ТЕТЕ. MKA -新 的 语句 行 代 蔡 旧 的 语句 行 ， 则 可 用 原 语句 行 的 标号 打 入 新 语句 行 
的 内 容 。 如 原 有 语句 为 ， 

10 LET A=5 

PRITA: 

10 LET B=5 

则 这 后 一 个 10 语句 行 就 代替 了 前 一 个 10 语句 行 。 

(6) 修改 完 后 , 想 检查 一 下 全 部 已 修改 过 的 程序 ,可 以 打 入 LIST 命令 ,并 按 “ 回 车 ” 键 ， 
于 会 在 菊 沧 屏 上 显示 出 计算 机 内 存 中 的 全 部 程序 ， 这 一 工作 称 “ 列 表 ” 或 “ 列 程序 清单 .” 

如 果 只 想 显示 一 部 分 语句 ， 可 打 入 : 

LIST ni 一 nz 
п, 和 n; 为 行 号 。 例 如 打 入 LIST 10—40, 则 显示 出 10 行 到 40 行 的 全 部 语句 行 。IBM- PC, 长 
城 0520 和 TRS - 80 等 计算 机 系统 用 LIST 命令 在 显示 屏 上 列表 , 用 LLIST 命令 (LIST 前 加 一 
个 工 字 母 ) 在 打印 机 上 列表 《将 程序 清单 打印 出 来 )。 

(7) 检查 无 误 后 , 可 打 入 RUN 命令， 使 程序 运行 。 如 程序 没有 错误 ， 则 计算 机 就 会 执行 
程序 ,并 按 要 求 输出 计算 结果 。 执行 完 后 在 荧光 屏 上 出 现 提 示 符 “OK”, 表示 已 执行 完毕 , 可 
以 再 接受 新 的 命令 或 语句 。 如 果 程 序 有 错误 ， 则 会 在 显示 器 上 显示 出 错 信息 。 

O 如 果 在 程序 运行 过 程 中 想 中 断 运 行 , 可 按 Ctri - C( 一 手 按 “Ctti" 键 ,一手 按 “C” 键 ) 。 

(9) 程序 运行 后 不 会 从 内 存 自 动 消失 , ,如 果 打 入 RUN 命令 ， 又 可 重新 运行 一 次 , 在 打 入 
NEW 命令 后 ， 原 有 程序 才 消 除 。 
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СТО) 键 若 上 有 许多 键 上 面 刻 着 两 个 不 同 的 字符 。 如 在 “3” 键 上 ，|. 面 大 -个 “#” 字 
符 . 下 面 是 字符 “3”， 如 果 仅 按 此 键 则 输入 “3” 字 符 ， 如 果 想 输入 “ 芽 ” 学 符 则 应 同时 按 
“SHIFT” 键 和 “3” 键 。 其 它 键 的 情况 类 亿 。 

AD 如 果 想 将 显示 屏 上 的 信息 全 部 照样 在 打印 机 上 输出 . 可 以 用 Сип ~ Prtse 键 (HD -F 
按 住 “Ctrlt” 键 ， 另 一 手 按 下 “Prtse” 键 ). ШЕЛ ЕНН СЕИ АТАТ 
打印 出 来 。 如 果 青 按 一 次 Ctr- PrtSe， 则 打印 机 脱 机 (不 再 同步 打印 }, 信息 只 在 显示 屏 上 显 
示 。 如 此 可 以 反复 多 次 使 用 Cl- PrtSe。 即 : 按 奇数 次 Ctr- Рис, 就 挂 上 打印 机 ， 按 偶数 次 
则 打印 机 陪 开 。( 这 是 对 长 城 (IBM - PC) 机 而 言 的 》 

应 当 说 明 ， 不 同 的 BASIC 系统 的 操作 命令 有 一 些 细小 的 区 别 , 但 基本 的 操作 步 久 是 相同 
的 .过 到 问题 训 参 阅 手 册 或 请 教 计算 机 管理 人 员 。 
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3.1 请 叙述 赋值 语句 的 特点 。 它 与 数学 中 的 等 式 有 何不 同 。 
3.2 如果 将 赋值 号 二 侧 的 变 基 名 互 换 ， 如 将 ， 


10 X=A 改 成 ，10 А=Х 
会 产生 什么 后 果 ? 
3.3 分 析 以 下 两 个 程序 的 运行 结 
жр (1) RE D 
10 LET Х=% 10 LET X=3 
20 LET Y=4 20 LET Y=4 
30 LET X -V 30 LET Y=X 
40 PRINT X, Y . 40 PRINT X, Y 
50 FND 50 END 
3.4 Г? 
(I) LET X=3, Y=4, E=5 (5) DATA 2, 3.8, 3+5, — 6—3 
(2) LET XA2=Y (6) READ А+В, C 
(3) LET X+1=Y—2 (7) INPUT X; Y; E; 
(4) READ A. B. C. D (8) PRINT A=SIN (3. 5) 


3.5 下面 程序 运行 的 结果 是 什么 ? 
10 READ А, В, С, D, Е, N 
20 LET T=A+B+C+D+E 

30 LET MEAN 一 TAN 

40 PRINT “MEAN="; MEAN 
50 DATA 8, 1 

60 DATA 6. 15, 4. 5 

99 END 
3.6 写 出 下 列 程序 的 运行 结果 。 
10 READ А,В 

20 DATA 1,2,3 

25 RESTORE 


30 READ С, р, Е, F 
40 RESTORE 50 
50 DATA 4, 5, 6, 7 
60 READ G. H, І, J,.K, L, M, N 
80 DATA 8, 9, 10, 11 
90 PRINT А, В, C, D. Е, F, G, II, 1, J, K, L, M, N 
99 END 
3.7 写 出 下 列 程序 运行 后 的 结果 。 
(1) 10 LET X=2 
20 LET Y=4 
30 PRINT X, Y 
40 END 
(2) 10 PRINT “А”, “В”, “C”, “D”, “E” 
20 PRINT 2*2, 3*3, 4*4, 5*5, 6*6, —1, 2, 4, 
30 PRINT 8, —16, 0.25, 0.5, 1, 2, 4 
40 END 
(3) 10 PRINT 12+3; —6+3.5, 
20 PRINT 1/2, 15/3, 7+8/2; 
30 PRINT 24-3; 6067，8，7 
40 END 
3.8 如 果 A 一 6，B 一 8.5， 希 望 计算 和 打印 出 下 面 的 结果 ， 请 编写 程序 。 
RUN 
AxB=6x 8. 5=51 
3.9 分 别 写 出 三 个 程序 ， 以 进行 下 列 计算 ， 
O 10—102 D 加 半径 + = 10， 求 加 面积 ， 轩 球体 积 œ Em 
3.10 把 华氏 温度 转换 为 摄氏 温度 C 。 公 式 是 : 
с=5. (F32) 


请 编程 序 ， 设 一 64， 结 果 小 数 四 使 五 入 。 
3. 11 火车 作 直线 匀 加 速 运动 ,已 知 初速 度 名 =10 厘米 / 秒 , 加 速度 a = 100 厘米 / 秒 ?， 
求 上 =10 分 钟 时 的 速度 〈 以 和 干 米 /小 时 表示 )。 计 算 公式 为 ， 
. ТЕЧ 
3. 12 计算 借款 额 ,假若 你 向 银行 借款 , 你 估计 每 年 能 偿还 款 数 为 。， 拟 分 儿 年 还 清 , 年 
利率 为 > ， 则 可 以 借 的 款 D 的 计算 公式 为 : 


aQ —1) 
G@— Dx nr 


其 中 :了 三 1 十 > 。 假 定 已 知 : a =240,а =5, 7 一 0.12， 请 编程 序 求 有 (小 数 点 后 四 会 五 
入 )。 


D= 
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3.13 有 如 


图 


图 3. 9 
3. 9 所 示 的 电路 ,其 中 = 1000, r, —200Q, rs = 1500, r, =509, r:=159, 
U 二 100V， 求 等 效 电 阻 * 和 总 电流 了。 


第 四 章 ”选择 结构 程序 设计 
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在 第 三 章 中 介绍 了 顺序 程序 设计 .在 某 些 情况 下 ， 为 了 实现 特定 的 运行 目标 ， 只 依靠 顺 
序 结 构 是 不 够 的 。 这 时 根据 需要 流程 不 必 完 全 按照 语句 行 的 行 号 大 小 顺序 执行 ， 而 允许 流 尾 
在 程序 中 按 一 定 规律 转移 。 例 如, 根据 某 个 指定 的 条 件 是 否 满 足 而 决定 执行 A 组 语句 或 3 组 
语句 。 又 如 ， 在 某 些 条 件 满足 时 反复 执行 某 一 组 语句 。 前 者 就 是 选择 结构 ， 后 者 就 是 循环 结 
构 。 这 是 医 种 十 分 重要 的 程序 基本 结构 。 一 -个 正式 可 供 使 用 的 程序 很 少 不 包 含 这 两 种 基本 结 
构 的 《至少 其 中 之 一 )。BASIC 中 有 直接 实现 这 两 种 基本 结构 的 语句 ， 也 可 以 利用 GOTO 语句 
和 其 它 语 名 一 起 来 实现 这 丙种 基本 结构 , 在 介绍 IF 语句 之 前 , 先 简单 介绍 Сото 语句 及 其 使 
B. 


§ 4.2 GOTO 语句 


GOTO 请 句 是 天 条 件 转移 语句 。 它 的 一 般 形 式 为 ， 
сото 行 号 
其 作用 是 使 流程 天 条件 地 转 到 指定 的 语句 行 去 。 例如: 
10 GOTO 40 
执行 10 语句 的 结果 是 使 流程 转 到 40 语句 行 继续 执行 。 显 然 GOTO 语句 改变 了 接 行 号 顺序 热 
行 语句 行 的 性 质 。 结 构 化 程序 设计 方法 反对 滥用 GOTO 语句 ， 因 为 它 可 能 导致 程序 的 无 规律 
化 、 非 结构 化 ( 见 第 二 章 §2. 8), 产生 BS 型 程序 。 只 允许 在 一 定 条 件 下 有 限制 下 使 用 GOTO 
语句 ， 即 , 为 了 形成 选择 结构 或 循环 结构 而 不 得 不 使 用 GOTO 语句 〈 见 下 节 )， 只 允许 在 一 个 
基本 结构 内 使 用 GOTO 实现 转移 而 不 允许 使 用 GOTO 语句 使 流程 从 一 个 基本 结构 转 到 另 一 
个 基本 结构 中 。 
总 之 ，BASIC 虽然 提供 了 GOTO 语句 ， 但 不 提 佛 随便 使 用 GGTO 语句 。 滥 用 СОТО 语言 
是 造成 非 结构 化 程序 的 根源 。 只 要 能 够 不 使 用 GOTO 语句 ， 就 不 要 使 用 它 。 当 然 并 不 是 禁止 
使 用 GOTO 语句 ,而 是 必须 遵循 结构 化 原则 。 


$ 4.3 正 语 自 的 概念 


在 BASIC 语言 中 ,选择 结构 是 用 ІР 语句 来 实现 的 ,例如 : 将 a,b 两 数 中 的 大 者 打印 出 来 ， 
可 以 用 图 4. 1 表示 算法 。 在 BASIC 中 可 以 用 一 个 正 语 名 实现 之 : 
43 


10 


Ларс 
ы! b 


—— 


打印 a 的 什 打印 b 的 什 


图 4.1 1.2 


IF A>=B THEN PRINT А ELSE PRINT В 


MS – BASIC 提供 以 下 两 种 格式 的 正 语句 ， 

Q) ТЕ (Ж) THEN 《语句 组 》 CELSE GAJA) 
(2) IF (条 件 ) GOTO ( 行 号 ) CELSE GJA 

方 插 张 内 的 部 分 表示 是 可 选 硕 ， 即 可 以 有 也 可 以 没有 。 
例如 以 下 几 种 下 语句 都 是 合法 的 。 


10 
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40 
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TF X>0THEN PRINTX 

IF А>ВТНЕМ CsA: A=B : B=C 

IF Y>0 THEN PRINT Y ELSE PRINT —Y 

IF CI=C2 GOTO 100 〈 转 到 行 号 为 100 的 语句 行 》 
IF D>E СОТО 200 ELSE PRINT D 


PHA: (1) THEN 或 ELSE 子 句 中 的 “语句 组 ”可 以 包括 一 个 或 多 个 可 执行 语 名。 如 果 包 
括 一 个 以 上 语句 ， 则 语句 间 用 冒号 分 隔 。 

(2) 上 面 举例 中 的 “IF C1 一 C2 GOTO 100” у. 实质 上 也 是 第 一 种 形式 的 ТЕ 语句 的 安 
Æ, Bp, “IF C1 二 C2 THEN СОТО 100”, 而 其 中 的 “GOTO 100” 是 一 个 语句 。 当 THEN 后 面 
H GOTO 语句 时 ， 人 允许 省 略 “THEN”。 

【 例 4. 1] 求 一 元 一 次 方程 ee 十 大 二 ec 一 0 的 根 《 只 著 虚 实 根 ， 即 p=, 

根据 数学 知识 ， 可 先 画 出 N-S 流程 图 ， 即 先 设计 出 算法 。 见 图 4. 2, 

可 以 根据 图 A. 2 所 示 算 法 编写 出 以 下 BASIC 程序 。 
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ІМРОТ “please enter a, b. с”; А, B, C 
D=BA2-4xA +C 


P=D/ (2 * А) 

IF D=0 THEN X1:= P; Х2:= P EISE Q—SQR (D )/(2 * A); XI=P +Q; X2 =P —Q 
PRINT "X1="”; X1, —"X2=", X2 

END 


RUN 

pease entera, b, c; 1, 4, 2⁄ 

X1=—.5858 X2=— 3. 4142 

有 的 计算 机 系统 用 的 BASIC 不 能 用 ELSE 子 句 
(HAN Applesoft BASIC) 。 这 时 可 以 改 用 其 它 形式 的 
ІР 语句 和 СОТО 语句 来 实现 。 

上 面 的 程序 中 40 行 也 可 以 改写 为 : 

40 1Е D=0 THEN XI=P': X2=P: GOTO 50 

45 Q=SQR (D) / (2+А) 

48 Xi=P+Q:X2=P—Q 

50 = 

也 可 以 用 以 下 形式 的 下 语句 实现 

40 ТЕ D=) СОТО 48 

42 9=508 (D) / (2*A) 

44 X1=P—Q:X2=P—0Q 

46 GOTO 50 

da X1=P: X2=P 

50 + 
它们 的 流程 图 都 可 以 用 图 4. 2 表 承 。 也 可 以 是 
RAA 3 那样 的 传统 的 流程 图 。 

有 一 些 较 早 的 BASFC 版 本 的 IF 语句 功能 不 够 
强 , 读者 可 以 模仿 上 面 的 办 法 用 系统 所 提供 的 IF 语 
筷 米 实现 选择 语句 , 订 以 看 到 ， -个 选择 结 均 可 以 用 
- :个 下 语句 来 实现 ， 也 可 以 用 一 个 IF 语句 和 车 十 
个 其 它 语 句 来 实现 “其 中 可 以 包括 -个 或 二 个 GO- BiA. 
то: #1). 5k 38 , Н] IF-THEN-ELSE 形式 的 语句 最 为 
方便 、 易 读 。 
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1.4.1 £ 38 Ñ f X £ 8 E 4 
前 面 在 IF 诸 句 中 所 用 到 的 “条 件 ”. 例如 “下 之 0” 或 “4 沁 B” 竺 ,就 是 关系 表达 式 。 
所 谓 关 系 表 达 式 是 用 - -个 关系 运算 答 连 接 员 个 数 信 基 (或 字 答 量 Y， 它 的 一 股 形式 为 : 
《数值 表达 式 :关系 运算 符 〉 (Кр 
BASIC 中 有 6 种 关系 运算 符 ， 
> (KF), < (小 于 )， = (ST). >= (AFTRAT. RAPAE pH h 
《小 于 或 等 于 ， 相 涯 于 数学 中 “三 ，<>> (PES. 相当 于 数学 书 的 “天 7)。 


> 


以 下 都 是 关系 表达 式 全 法 形式 

A>B,C= D K>=Y,X< 0, <> 10,Х <= 8.3,4 – B> X —Y,A* B>18.6 

关系 表 远 式 有 一 个 值 ， 以 “ 真 ” 或 “ 展 ” 来 表示 。 当 给 证 的 条 件 灌 足 成立 ) 上 时， 关系 
表达 式 的 值 力 “ 真 "， 否 则 为 假 。 例 如 ， 当 4 一 3.0,8 一 5.0,X 一 一 3.57 一 6.3 时 ， 关系 
表达 式 的 值 如 表 4. 1 所 示 ， 


#41 
КЕКЕ 条 件 满足 否 Еа 
А> 不 满足 L.l 
ї>=ү 不 满足 ® 
х<8.8 满足 x 
X< 满足 K 
本 一 日 > 和 一 了 不 满足 Ld 
As B> 13,6 满足 x 


可 以 看 出 ， 所 亩 美 系 表 达 式 就 是 将 瑞 个 数值 型 数据 进行 比较 ， 当 比较 的 结果 满足 所 指定 
的 条 咎 时 ,关系 表达 式 的 慎 就 为 “W”, AUX “R”. 通俗 地 说 ,“ 真 ”就 是 给 定 的 条 件 满足 
《或 秋 条 件 成 立 ),“ 斧 ”就 是 给 定 的 条件 不 满足 (不成立 )。 关 系 运 算 符 又 称 为 “比较 符 "。 对 
FÜ IF 语句 ， 

10 IF A>B THEN PRINT А 
FRA, NRS FERREA “ADB HENAN, ЛЕА 的 什 ”, 为 了 便于 理解 , 也 可 
以 读 为 “车 给 定 条 件 “A 沁 B” 满 足 本 显示 A”, sI РА КОВ. ША”, 

对 数值 量 的 比较 规则 , 接 其 代数 值 大 小 进行 比较 ,例如 3 大 于 一 3，5 不 等 于 一 5, BASIC 
除了 可 以 对 数值 量 进行 比较 外 ， 还 可 以 对 字符 型 数据 进行 比较 〈 见 本 芝 第 八 章 )。 

在 BASIC 中 没 丰 提供 逻辑 型 数据 ， 因 此 对 “ 真 ”或 “ 假 ” 这 样 的 逐 辑 量 用 一 个 数值 来 代 
表 ， 一 般 以 “0” 表 示 “ 想 ”， 以 一 个 非 零 的 数 代表 “ 真 ”( 在 MS - BASIC 中 以 “一 i” 代 表 
“E”. FE Applesoft BASIC 中 则 以 “1” 表示 “ 真 ") 。 关 系 表达 式 的 值 是 可 以 输出 的 ， 姬 : 

10 PRINT 5>3, 5<3 


将 显示 出 : 

—1 0 

在 下 语句 中 是 恨 据 关系 表达 式 的 值 为 0 或 非 零 来 决定 是 否 执行 THEN 子 句 的 。 假 如 
x=5, Ш 


10 ЈЕ X THEN PRNT X 
WEIHER X МИҢ (5), 有些 书 上 说 ,“ 当 XRT AAE t<>0' ， ”就 是 这 个 意思 。 
但 是 这 样 写 易 读 性 差 ， 不宜 提倡 。 还 是 应 该 完整 地 写 出 关系 表达 式 。 


4.4.2 ЕЖА X fE RARA 
一 个 简单 的 条 件 可 以 用 一 个 关系 表达 式 来 表示 。 如 果 要 指定 的 是 一 个 由 几 个 简单 的 条 件 


组 成 的 复合 条 件 ， 例 如,，“X 沁 0 和 六 之 1080 Y> ОЯТУ 10” (W.B 4. 4 (a)),”X<10 
B X >20" СЕНА. 4 (b)), 就 要 把 几 个 关系 表达 式 联接 组 成 一 个 逻辑 表达 式 。 例 如 上 述 的 
两 个 “复合 条 件 ” 可 以 用 下 面 两 个 式 子 表示 ， 


X>0ANDX<10 AND 了 >>0AND7<10 
X<10 OR X>20 


这 就 是 两 个 逻辑 表达 式 。 


BASIC 中 可 用 的 逻辑 运算 符 有 三 个 ， 

AND (5) 如 果 其 前 后 的 两 个 简单 条 件 都 满足 ， 则 认为 满足 此 复合 条 件 。 

OR (或 ) 如 果 在 其 前 后 两 个 简单 的 条 件 之 一 满足 ， 则 认为 满足 此 复合 条 件 。 
NOT GE) 对 写 在 其 后 的 条 件 取 “ 反 ”。 

假设 A 和 B 代表 两 个 关系 表达 式 , RAH A 和 B 都 为 真 时 , A AND B 的 值 才 为 真 。 只 要 


АВА, ЩА OR B 的 值 为 真 。 若 入 为 真 ， 则 NOT A 的 值 为 假 ， 见 表 4. 2, 
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А B А АМО В А ОКВ МОТ A NOT B 
x K A ж [Г . 
x m Г я = а 
н x L: x x & 
= и m Е x x 


如 果 有 一 个 下 语句 如 下 ， 

10 IF X>0 ANDY>0 THEN PRINT X, Y 
REH х0, 并 且 Y>0 时 , TER XAY HE, RE X> 或 “Y>0” 两 个 条 件 之 一 不 
满足 ， 都 不 会 输出 X, Y 的 值 。 又 如 ， 

20 IF X<10 OR X>2 THEN PRINT X 

АЖ “Х<10” 或 “X>20” 二 者 之 一 满足 都 要 执行 “PRINT X” IB]. ЖЕШ, X 的 值 为 一 
5， 在 执行 上 面 的 IF 语句 时 ， 将 会 输出 x 的 值 《 一 5)。 又 如 

30 IF NOT Х<0 THEN PRINT X 
其 含义 是 : # x AUB O 则 显示 XKE. BEX 的 值 为 5， 那 么 关系 表达 式 “X<0” 的 值 为 
“B, 而 前 面 加 一 个 逻辑 运算 符 “NoOT” 表示 “ 取 反 ”， 所 以 逻辑 表达 式 “NOT X<0” 的 值 为 
“ 真 ”， 故 应 执行 “PRINT х” Ы, 

关系 表达 式 是 最 简单 欧 一 种 逻辑 表达 式 ， 它 不 包含 逻辑 运算 符 。 

【 例 4. 21 计算 运费 . 设 货物 运输 价格 P (元 ) 与 运输 上 距离 * СРЖ) ЖЖ. 按 以 下 公式 定 
Ж <Р ARETE 


20 х $ < 100) 
17.5 ГЕ 
Р = 415 (200 < & < 300) 
12.5 (300 < $S < 500) 
10 ‹ © > 500) 


ЖА S 和 货物 吨 数 凡 ， 要 求 计算 出 总 运费 。 
COST (总 运费 ) - P x W x š 
良 据 题 意 , Fih N-S B], 判断 S 在 哪 一 区 间 然 后 决定 P 的 值 。 见 图 4 5。 杠 据 网 4. 5 编 
写 程 序 如 下 : 
19 INPUT “enter distance and weipnt:”, S, W 
20 IF 8<10@ТНЕМР:=20 
30 1Е 522—100 AND 5<200 THEN Р=17. 5 
40 IF S> =200 AND 5<300 THEN P 一 15 
50 IF S> 一 300 АМО 5<200 THEN P—12. 5 
6) IF 52>=500 THEN Р=1С 
7D COST=P xS* М 
80 PRINT “CQST=”; COST 
99 END 
REN 
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enter distance and weight: 20, 100,/ 


COST=-40000 


请 注意 ， 有 的 读者 往往 容易 将 程序 错 写成 以 下 这 样 ; 


30 
40 
50 
60 


IF S<200 
IF S<300 
IF S<500 
IF S>500 


THEN 
THEN 
THEN 
THEN 


P=17.5 
Р=15 
Р 12.5 
P=10 


请 考研 错 在 何 处 ， 为 什么 绒 ? 试 以 一 200 АИ, 第 -个 程序 输出 cosT- 10000, #4 
程序 输出 COST 一 35000。 请 读者 本 出 与 第 一 个 程序 相应 的 N_S 流程 图 。 


54.5 FRAKE 


我 们 已 分 绍 了 IE 语句 可 以 采用 以 下 形式 ， 
IF СОРА) THEN (HAJA) ELSE (语句 组 》 
诸 句 组 中 可 以 包括 -~ 个 或 多 个 可 执行 语 条 ,如 果 在 语句 组 中 又 包含 一 个 IF 请 句 , 就 形成 


ТІР РАЈН, 例如， 


10 IF X>Y THEN ІБ X>Z THEN PRINT “МАХ”; X 


图 4.6 (а) 


图 1.6 (b) 


RENE: ЖЖ “хоу” МИН, ШЕҢ X КРУНИ), 然后 再 求 
“X>2” 的 值 ， 如果 也 为 真 ， 才 执行 THEN 后 面 的 PRINT 语句 。 流 各 图 见 图 4. 6 (а), 请 
注意 , 内 层 的 IF EJERE EIE IF 语句 中 的 THEN 子 名 中 的 。 如 果 XAY, MTERA 
TE ТЕ 语句 。 

HKEEREN, ШОМ -5 流程 图 时 会 出 现 每 个 “ 真 ” 和 “ 假 ” 的 框 分 得 您 来 愈 小 ， 有 可 
能 写 不 下 相应 的 操作 内 容 。 为 此 , 作者 建议 可 以 将 选择 结构 横 过 来 西 ， 如 图 4. 6 (b) 所 示 形 
式 。 这 种 画 法 把 嵌 套 IF 的 各 个 “ 真 "、“ 假 ”操作 框 向 纵向 展开 ,而 纵向 的 篇 幅 比 模 向 的 篇 幅 
大 得 多 ,从 而 较 好 地 解决 了 上 面 提出 的 问题 ,在 看 图 时 依然 从 上 到 下 看 下 来 ,把 . -个 IF 语句 
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所 对 应 的 选择 结构 看 作 一 个 整体 。 
【 例 4.33 输入 4 和 5 的 值 , 要 求 显示 出 其 中 值 较 小 的 数 。 
10 INPUT "A, B=”. А,В 
20 IF A< —B THEN IF A<B THEN PRINT A; ELSE PRINT “NEITHER ”; ELSE PRINT B; 
30 PRINT“IS SMALLER” 
40 END 
相应 的 N- S 流程 图 见 图 4. 7 (а) 和 (b) 


打印 BB 


“nenher” 


ШЕНИН 19 smaller” 打印 “is smaller” 


图 4.7 (а) 图 4.7 (b) 


它 是 这 样 执行 的 , 先 检查 A< B? WERE AB, MAE THEN 后 面 的 部 分 ， 直接 去 
执行 最 后 一 个 ELSE 后 面 的 语句 《PRINT B), WR А<В, Дй THEN 后 面部 分 ， 此 时 青 检 
查 A<B? 如 果 满 足 ， 则 打印 A， 如 不 满足 ( 即 A 一 B)， 则 打印 “NEITHER”。 然 后 执行 30 Ж 
句 。 对 照 流程 图 看 ， 其 作用 是 很 清楚 的 。 

运行 开始 后 , 输入 二 个 数据 给 A 和 B, 程序 检查 比较 A 和 B 的 值 ,将 值 小 的 打印 出 来 。 当 
А Дф, ТЕП, “А IS SMALLER”。 当 A 二 B 时 ， 打印 ; “NEITHER 15 SMALLER”, 

RUN 

Á, B=3,6x 

3 IS SMALLER 

在 程序 的 20 行 是 一 个 幅 套 的 下 语句 ， 包 含有 两 个 “IF”、 两 个 “THEN”， 两 个 “ELSE"。 
ЯНА ELSE 与 哪个 IF - THEN 配对 。 配 对 的 原则 是 ， 先 从 最 内 层 的 ELSE 开始 找 ， 
ELSE 总 是 与 离 它 最 近 的 且 在 它 前 面 的 IF 配对 ,如 此 逐 层 配对 ,把 它 写成 下 面 锯 齿 形状 比较 容 
易 看 出 各 层 的 嵌 套 关系 。 
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"IF A<=B THEN 
10 ІМ А<В THEN PRINT А; 
ELSE PRINT “NEITHER”; 

LELSE PRINT B; 

BASIC 的 一 个 正 语句 必须 在 一 个 语句 行 (最 多 可 包 合 255 个 字符 ) 写 完 ， 这 样 的 写法 清 
蜥 度 提 高 了 ， 但 相当 于 在 语 杀 行 中 增加 了 许多 空格 ,增加 了 语句 的 长 度 。 当 长 度 超 过 255 时 
就 会 出 错 , 所 以 尽量 不 要 使 用 多 以 的 下 典 套 ,否则 很 容易 弄 错 谋 套 的 关系 。 本 例 也 可 以 用 以 
下 程 席 实现 ， 

10 INPUT “А, B=", A, B 

20 1F A>BTHEN PRINT B, 

26 IF A<B THEN PRINT А; 

28 IF A=B THEN PRINT “NEITHER”; 

30 PRINT “IS SMALLER” 


[ l—F  — | 


40 END тев na aa 
а 
10 INPUT “А, B=”, А, В 
20 IF АВ THEN PRINT B;; OOTO 30 图 4.8 
25 IF A < В THEN PRINT А; FLSE PRINT 
“NEITHER”; 
30 PRINT “IS SMALLER” 
40 END ` 


在 这 个 程序 中 ， 用 两 个 语句 入 (20 和 2544) 来 实现 图 4. 8 所 示 的 选择 结构 的 典 套 。 注 
Ж, АЖЕ А 昌 的 条 件 下 才 会 执行 35 行 , 25 行 的 作用 是 实现 20081] “АРВ” ARTE 
进行 的 操作 ， 相 当 于 20 语句 中 有 一 个 ELSE 部 分 。 


【 例 4. AAN: 
+1 (220 
?一 10 Се =0) 
—1 (z <0 


ЯПА г, КАТЕТ у МИШ. 

可 编 出 程序 如 下 : 

10 INFUT “X=”, X 

20 IF X2>20 THEN Y=1 ELSE IF X=0 THEN Y=¢ ЕБЕ Y= —1 

30 PRINT “X-=”, X, “Y=” Y 

40 END 

根据 前 面 叙述 的 其 套 原由， 第 一 个 ELSE 与 第 一 个 正 配 对 ， 第 二 个 ELSE 与 第 二 个 IF FE 
Ж}. 流程 图 见 图 4. 9。 内 层 的 ТЕЕ; ЖИЕ {ЕРКИН IF 语句 的 ELSE 子 句 中 的 。 

也 可 以 将 20 语句 改写 为 ， 

20 IF X>=0 THEN IF X>0THEN Y=1 ELSE Ү=0 FLSE Ү=0 

此 对 ， 内 层 的 ТЕ 语句 是 嵌 套 在 外 层 正 语句 的 THEN FA ph MEALA 4. 10, WE 
意 ELSE 与 下 的 配对 关系 。 有 人 写 出 以 下 程序 ， 


10 INPUT “X=”; X 

15 Y=0 

20 IF Х;>=0 THEN ТЕ X>0 THEN Y=] ELSE Y=—1 

30 PRINT “X=", X, “Y=”; Y 

40 FND ， 

编程 序 者 的 意图 是 实现 图 4. 11 的 流程 ,但 由 填 现在 只 有 -… 个 ELSE, Z SBE— + IF 配对 
呢 ? 根据 规定 , 它 与 第 二 个 正 配对 而 不 与 第 -个 IF 配对， 因此 它 对 应 的 不 是 图 4. 11, 而 是 
图 1. 12， 这 显然 不 符合 题目 要 求 。 当 X=0 时 , X= 一 1 而 不 等 于 0, 而 当 X<0 时 , Y 却 等 
FO, 


图 4.11 图 4.12 


因此 ， 当 使 用 贬 套 关系 时 一 定 要 十 分 仔细 ， 防 止 出 现 逻辑 错误 。 
【 例 4.5] 求 一 元 “次 方程 Az + Bz + C 二 0 的 根 。 考虑 D=B: 一 44AC 大 于 0, 等 十 0 
和 小 于 0 三 种 情况 。 
第 二 章 图 2，17 已 给 出 流程 图 。 
ЛКЕН ТЕ 语句 编写 出 程序 ， 
10 INPUT “A, B, C="; А, B, С 
20 LET pD:=BxB 一 4xAxC 
30 IF D<) THEN PRINT “COMPLEX ROOTS” FLSE IF D>0 THEN X1= (—B+SQR (D) )/(2* A); 
X2= (—B-—SQR (D) )/(2+ А). PRINT X1，X2 ELSE X=—B/ (2 * A); PRINT X 
10 END 
请 读者 画 出 与 此 程序 相应 的 流程 图 《与 图 2，16 略 有 差别 ) 30 语句 中 内 层 的 IF 语句 是 
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ЕЛЕЙ IF 语句 的 ELSE PAPAY. г ЖЕНГЕ НЕР ë IF ВОВСЕ ТЕ 语句 的 THEN J 
名 中 。 但 是 ,最 好 把 内 层 正 ЕТИУ 正 的 ELSE 部 分 (尤其 是 当 内 层 的 IF 只 有 THEN 部 分 
而 没有 ELSE 部 分 时 )， 这 样 还 辑 关 系 不 易 搞 错 。 请 在 下 面 示意 : 

JF…THEN…ELSE…IFE…THEN…ELSE… 

WE IF 与 外 层 IF 之 间 有 外 层 的 ELSE 隔 开 ,不致 混 淆 。 如 果 把 它 嵌 套 在 外 层 IF 的 THEN 
部 分 : 

IF- THEN- F. THEN" ELSE ELSE- 


N АЖ _ w" 

外 层 
当 内 层 的 IF 只 有 THEN 部 分 而 没有 ELSE 部 分 时 ， 就 成 了 : 
IF…THEN…IF…THEN… ELSE 


程序 设计 者 的 原意 是 将 有 下 划 线 的 正 - THEN 部 分 作为 内 层 还 语 旬 , 但 出 于 ELSE 请 名 
与 其 最 近 的 IF 配对 , 因此 ELSE 语 人 成 为 内 层 IF 语 名 的 一 部 分 (如 惠 线 所 示 ), НАН, 
错误 。 

应 该 说 ， 由 于 BASIC 规定 只 能 在 个 语句 行 中 写 出 整个 РА) СЕЛЕШ ИӘ, П 
能 分 行 邱 (如 FORTRAN 的 块 IF 或 PASCAL 的 下 语 旬 可 以 分 行 写 ) ,使 正 的 能 套 使 用 和 阅读 
部 不 太 方便 。 可 以 改 用 几 个 语句 来 实现 选择 结构 的 供 套 。 请 读者 参考 例 4 3 的 方法 改写 例 
4，5 的 程序 。 


$4.6 多 分 支 选 择 语 向 (ОМ -GOTO #4) 


IF 语句 可 以 从 两 条 路 径 中 选择 其 一 。 但 有 时 遇 到 的 问题 是 要 求 从 多 条 路 径 中 选择 其 -…， 
例如 根据 学 生 考分 将 成 绩 分 段 (90 分 以 上 ，80~89 分 ，70 一 79 分 ，60 一 69 分 ，60 分 以 
T), 分别 进行 处 理 ， 又 如 银行 存款 有 不 同 的 种 类 , 根据 不 同类 别 决定 不 同 的 利息 。 当 然 可 以 
НИКИ IF 语句 来 实现 多 分 支 选择 ,但 正 语句 会 比较 长 ， 程 序 清晰 度 降低 ，BASIC 提供 
ON- GOTO 语 句 实现 多 分 支 选择 。ON - GOTO 语句 的 一 般 形 式 为 : 

ON ‘算术 表达 式 〉GOTO 48 1), 4582), 06 (S n 

它 的 作用 是 : 先 计算 算术 表达 式 的 值 ， 若 值 为 小 数 则 按 四 售 五 人 原则 处 理 得 -整数 。 如 
果 此 整数 值 为 ; ИНИ РЕ БЕРГ Т БУ i 指出 的 语句 行 去 继续 执行 。 表 达 式 的 值 应 大 于 或 等 于 ,小 
于 或 等 于 n,n 最 大 值 为 255, 即 最 多 可 以 有 255 个 分 支 。 如 果 表 达 式 的 值 小 于 I RAF n, Л] 
执行 ON - сото 语句 的 下 一 语句 (ЙАЛТ Ж ON- GOTO WRA). WRAL TKR: ` 

30 ON X GOTO 100, 300, 200, 500 
当 工 一 1 时， 流程 转 到 10047. Х=2 时， 流程 转 到 30017, X=3 时 ， 流 程 转 到 20017, X= 
1 时， 流程 转 到 500 行 。 

ON- сото 语句 相当 于 一 个 “多 路 开关 "， 妆 X 为 某 -个 值 时 接 通 某 一 通道 。 见 图 
4. 13, 
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É 4.13 


【 例 4.67 和 售 货 价格 随 贴 货 数量 而 异 ， 买 100 个 以 上 (会 100， 下 同 ) 的 为 95 折 ，200 
个 以 上 的 90 拆 ,300 个 以 上 85 折 ,400 个 以 上 的 80 折 ,500 个 以 上 75 折 。 设 商品 价 为 5 元 。 


ER: 
# 


在 输入 购买 商品 个 数 后 ,打印 出 总 货款 。 


100) 的 值 为 : 


程序 思路 : .题目 规定 购 货 每 增加 100 个 折 托 就 换 一 档 , БЕЛЕК О, 网 INT (q/ 
{0 ‹ 9 < 100) 
H (D0 @ < 200) 


,2 200 < 0 < 300 
уте) = 45 (200 < 0 < 300) 


(300 < Q < 400) 
4 (400 < Q < 500) 
ls (500 < Q < 609) 


SEAT 500. 一 律 按 754. SH ON - СОТО 语句 来 处 理 。 由 于 ON - GOT 语句 中 的 表达 式 
(У) 值 必须 大 于 0 (最 小 为 1 )， 故 程序 作 以 下 处 理 : 


10 
20 
30 
35 
490 
100 
200 
300 
400 
500 
BOQ 
1000 
1010 
1010 
RUN 


Р=65 Йй) 
INPUT “Q=”, Q (输入 购买 款 ) . 
V=INT (Q/100) +1 
ПЕ V>6 THEN v=6 
ON V СОТО 100. 200, 390, 400, 500. 60C 
R—1: СОТО 1000 (R 为 折扣 》 
R=0.95; СОТО 1000 
R=0.9; СОТО 1000 
R=0.85; GOTO 1000 
及 一 上 6: GOTO 1000 
R=0. 75 
T=Px Q * R 《计算 总 货款 ? 
PRINT “AMOUNT ="; T 
END 


Q= 

AMOUT = 14625 

程序 中 100—500 行 中 
都 有 一 个 сото 语句 以 便 
使 它们 汇合 到 同 - -个 出 口 点 
CLB] 4. 14), 这 才 符 合 结构 
化 原则 GAE, ЗВОН 
这 些 сото 语句 会 出 现 什 
和 结果)。 此 程 襄 是 结构 化 
的 , 可 以 函 出 N - S СЯ 
4.015), ЖЕЕ. Fortë 
Е N - S 图 中 的 表示 形 
= 


请 读者 注意 分 析 30 语 
名 ,为 什么 要 加 1? 内 为 使 用 
ON - GOTO 语句 必须 使 F 
的 最 小 值 为 1。35 语 包 使 8 
大 于 500 时 ，Y 的 值 都 为 6 
(都 接 75 ПИН). 40 语句 
ЖЕ V 的 值 分 别 转 去 (00. 
200, 300, 100, 500, 600 27. 
Уж в 55 
F i, 0.95, 0.9, 0.85, 0.8, 
0.75, ÈE. nA 
后 都 应 汇集 到 100 语句 行 ， 
计算 总 数额 ， 

如 果 多 分 支 选 择 中 ， 分 
支 数 很 多 ， 而 且 相 点 的 操作 
内 容 比 较 复 厅 ， 有 可 能 在 窗 
小 的 所 内 写 不 下 ， 可 以 将 多 
п НШ E 
4. 5ER. 
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VINT (Q'100)+1 


8 1. 16 


例如 图 4. 15 可 三 成 图 4. 17 形式 。 
究竟 用 图 + 15 或 图 4 17 形式 由 读者 
根据 情况 自 定 。 二 者 都 同样 是 方 使 易 污 
的 ， 

由 于 用 oN - сото 语句 实现 多 分 
支 选择 结构 要 用 多 个 GOTO 语句 使 出 
日 汇 全 在 一 起 ， 这 样 虽 然 符合 结构 化 原 
W. BARRES, PREEN, wF 
到 子 程序 一 章 ER M, 可 以 用 ON - 
GOSUB В) Қ ON - GOTO Ер. ЯБ 
样 更 好 些 。 


g A. 17 
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$47 E 5 Ж 例 


Са. в] 冶 出 三 角形 的 三 边 a.,8.c 、 要 求 计算 出 三 角形 的 面积 。 

首先 要 验证 a,8,c 三 条 线段 能 否 均 成 一 个 三 角形 。 构成 三 角形 的 必要 而 充分 的 条 件 是 : 二 
ШОР, Д.а ье, Бера, e+aD>b, 

三 角形 的 面积 area 一 vs + (s— в) 5 (9 5), G — с) 

其 中 ,s 56 


可 以 编写 程序 如 下 : 

10 INPUT “entera, b, с”, A, B, C 

12 S= (A+B+C) /2 

20 IF (A+B>C) AND (B+C>A) AND (C+A>B) THEN PRINT “area="; SQR (Sx (S—A) > 


(З—В) ж (S—C)) ELSE PRINT “data error!” 
3С END 
运行 情况 如 下 : 


entera, b, с; 4, 3, 5 


area=6 

Кра. 给 出 三 个 数 "3,c ， 要 求 按 大 小 顺序 将 它们 打印 出 来 ， 

先进 行 算法 设计 。 可 以 用 襄 顶 息 下 、 逐 步 细 化 的 方法 进行 。 先 进行 顶层 设计 。 见 图 
4. B, 


аф, 
` 把 中 孝 放 在 b 中 ， 
Pakat 


图 4.18 


一 般 习 惯 以 S (EX Step (E) 的 第 一 个 字母 ) 代 表 “ 步 又 ”"，S1，S2, S38 分 别 代 表 “第 
一 步 ".“ 第 二 步 "、“ 第 三 步 "。 其 中 81，S3 这 两 步 已 足够 简单 ， 无 法 再 经 化 了 。S2 还 不 够 具 
体 ， 怎 样 才 能 实现 52 HERE 要 进一步 具体 化 。 对 S2 可 以 细 化 如 下 : 

S2.1 特 4 和 8 比较 ,将 大 者 放 在 a 中 ， 小 者 放 在 3 中 。 
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52.2 将 和 * 比 较 ， 将 大 者 放 在 “中 ,小 者 放 在 F. ULI ОЕШ ЕХ 
Т), 

523 将 4 和 * 比较 ， 将 大 者 放 在 中， 个 者 放 在 。 中 。( 比 时 ?为 次 大 的 数 ,* 为 最 小 
o 

用 N -S$S 流 程 图 表示 S2 #8., С 4. 19), 至 此 S2. 1, 52. 2, 52. 3 已 不 必 (也 不 能 ) 
再 细 化 了 ， 它 们 可 以 用 三 个 FEER. WEERT PUS IH ЕЛЕШЕ. 

10 INPUT "A, B, C=”, 

20 IF A<BTHEN T=A 

30 IF A<CTHEN T=A: 

40 IF B<CTHEN T=B; 

50 PRINT А; B; C 


【 例 4 8] 整 存 零 取 的 计算 

(D 给 定 每 次 支 款 的 期 限 ， 坎 额 、 全 部 取 完 的 年 数 、 以 及 年 利率 。 可 以 计算 出 开始 时 一 
次 应 存 人 的 款 数 , 例如, 准备 在 9 年 内 每 隔 半年 支取 90 元 (在 每 半年 的 最 请 ), 年 利率 为 5 ， 
税 现 在 一 次 应 存 和 多少 钱 ? 

(2) 给 定 的 项 目 包 上 ， 但 支取 时 间 改 为 每 一 段 期 限 的 开 怒 ， 例 站 在 每 半年 的 开始 时 去 


E. 
(3) AEF АНТКА НАКА, СИТЕ ОИЕ) 〈 年 )、 多 少时 间 取 一 次 、 区 及 年 利 
率 。 需 要 求 ， 竹 次 可 取 多 少 钱 。 例 如， 一 次 整 存 5000 元 ， 年 利率 8%， 淮 备 5 年 内 取 完 ， 每 
半 竺 取 一 次 《在 第 6 个 月 的 最 后 取 》〉， 问 每 次 可 以 取 多 少 钱 ， 
以 上 均 按 复 利 计 算 ， 每 取 一 次 计算 一 次 。 
先 找到 处 理 这 类 问题 的 计算 公式 : 


има C 一定 

DETH GIR AR” BO 一 准备 每 次 支取 数 xY = I 

应 整 存 的 款项 〈 如 果 “ 期 初 ”了 到》 一 准备 每 次 支 牙 数 X 了 二 工 X (7 十 1) 

整 存 后 每 其 可 支取 数 一 整 存款 数 xt=Y 

Kub: v=1— G+1 Q 为 支取 的 分 期 数 ， 其 值 等 于 支取 完 的 年 数 X 每 年 支取 次 数 ) 

设 以 D 代表 存 取 方式 , MMA D=1 Еф, АЯЧЫ t O 方式 ОНЖ. WWA D = 
2, 则 按 2) FR (ИЛО. DL 4 代表 每 期 支取 款 数 《对 O) (D FO REFRE Ot 
O 方式 )。 外表 年 利率 . 工 代表 一 年 到 几 次 ,x 代表 包 年 取 完 。 

画 出 N-s 图 ， 见 图 4. 20。 编写 程序 如 下 ; 


19 INPUT “МОРЕ”; D (输入 存 肥 方式 ) 
20 INPUT “AMOUNI”; A (每 期 支取 数 或 整 存款 数 ) 
30 INPUT “КАТЕ”; R [年 利率 } 
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40 INPUT “NUMBER OF INSTALLMENTS”: L 


ERLO 
50 INPUT “TERM”; N AERE 
16 1=RAL ERER 
120 N=N =L (PRO 


130 Y=i— (0-70 A (еМ) 

140 СЕ D=? THEN 200 

150 M= INT (A * Y/1+- 0. 5) (规定 “期 天 ”到 
时 应 整 存 前 款 ) 

160 PRINT “TERM-END CRNT. РЕ. ", М 


170 S=INT (Аж ҮЛ 0+1) +05) (规定 ИИҮҮ amis 
A “RAJU ДАУ ЖЕЛЕДЕ) RFM RABE n В 
180 PRINT “TERM-BUGINNING CRNT., PR.“ 
5 
180 GOTO 220 il ize 


200 E=INT {A + 1/Y+ 0, 5) 

210 PRINT “OUTSTANDING AMOUNT AT TERM END”, Е 

220 REM 

999 END 

在 程 产 开始 运行 后 ， 先 由 键 间 输入 “在 取 方 式 "。 当 输入 “1” 上 时， 表示 已 知 零 取 孝 数 和 
期 限 、 利 率 、 希 刻 求 整 存款 数 《 即 本 题 开始 时 列 出 的 (1). (2) 两 项 )。 当 输入 “2” 堵 , Ж 
示 已 知 整 存款 数 和 外 支取 期 限 苔 利 变 ， 希 眩 求 每 次 可 支取 多 少 钱 (PREH (3) 项 )。 

运行 情况 为 

RUN 

MODE? lx” 

AMOUNT? Sby” 《每 次 取 90 元 > 

RATE? 0. 05” 《年 利率 5 站 ) 


NUMBER OF INSTALLMENTS? 2g“ СЕИСО 

TERM? 9/7 (9 年 取 完 ) 

TERM _ END CRNT. PR. 1292 GE “斯 来” R. TEA 1290 元 ) 
TERM ，BEGHNNING CRNT. PR. 1324 E REA” R, EKTA 1324 元 ) 
另 一 次 运行 记录 

RUN 


MODE? 2,“ 


AMOUNT? 500,” FEA 5000 元 》 

RATE? 0. G8 PE 到 8%) 

NUMBER OF INSTALLMENTS? 2y” (ERIKO 
TERM? 57 СЕРЖ) 


OUTSTANDING AMOUNT AT TERM END ”616【 每 次 在 “期 末 ” 对 可 取 656 元 》 
请 注意 ， 程 卒中 140—220 语句 构成 一 个 选择 靖 构 ，220 语句 只 是 作为 “汇合 点 ”之 用 。 
程序 中 170 和 206 туфи qes d 0.559 ЕН} Ж “IRA БА”. 上 月 的 是 为 了 得 到 整数 
Сл) 而 不 要 求 输 出 角 到 分 。 太 此 顺便 介绍 一 些 有 关 站 舍 五 人 和 保留 指定 全 数位 数 的 方法 ， 
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《1) 如 果 费 求 对 个 位 数 进行 四 舍 瑟 和 处理， 可 以 按 下 式 进行 : 
INT (X+0. 5) 
a, X =39. 67, X+0.5=40.17, 再 取 特 得 40. 9: Х= 39. 47, WJ ХО. 5 二 39. 97, 取 整 得 
39, 
D 如 果 想 保留 小 数 点 后 一 位 数字 ， 可 以 : 
INT (Xx10) /10 
ЖШ, X=39.67, X *10=396.7, INT (396.7) 二 396， 再 除 以 10， 得 39. 6。 保 留 了 -位 小 
数 。 有 人 会 奇怪 乘 以 10 又 除 以 10， 不 等 于 不 乘 不 除 吗 ? 请 注意 : X ЖЕ 10, HRE, REAR 
除 以 10。 乘 10 的 作用 是 使 X 的 小 数 点 右 移 一 位 (39. 67 变 为 396. 7), BOEK EREHE X 的 第 
二 位 小 数 去 掉 , нй 10 为 了 将 小 数 点 左 移 -位 (到 原 位 笨 )。 用 这 个 办 法 去 掉 第 二 位 小 数 . 问 
BE. 如果 想 保留 二 位 小 数 ， 可 以 用 下 式 ， 
INT (X * 100) /100 
想 保留 n 位 小 效 ， 用 ， 
INT (Xx 10AN) /10AN 
D 如 果 想 保留 一 位 小 数 ， 对 第 二 位 小 数 进 行 四 含 幸 入 处 理 ， 可 以 用 下 式 ， 
INT (Xx 1040.5) /10 
A, x 一 39.67， 乘 以 10 得 3986. ?7， 加 0. 5 得 397.2， 取 整 得 397， 再 除 以 10, 839.7, 符合 
题 意 。 
如 果 上 保留 位 小 数 ， 对 第 = 十 1 位 小 数 四 舍 五 入， 该 如 何 处 理 ? 
【 例 4. 92 有 一 函数 


`4 0 < r< 0 
(10 + z20 G= r< 10) 
C 10 < z<30) 
20 — G — 30) 
r= ОҢ 30 < z < 40) 
G4 40< z <50) 
lo — G — 50) 
G4 Б0 < z< 60) 
见 图 4. 21。 


从 图 可 以 看 出 每 一 段 直线 及 对 应 的 x 

值 的 范围 都 是 10 的 倍数 ， 可 以 将 宽度 10 作 
为 - ' 个 区 间 单 位 , 第 一 个 区 间 为 [0，10), 第 
二 个 区 间 是 C10，20)， 第 三 个 区 间 是 20、 ET 
30)， 第 四 个 区 间 是 [30，40)， 第 五 个 区 间 . 
是 [40，50)， 第 六 个 区 间 是 С50. 60), 由 0 并 始 变化 其 值 ， 每 变 到 то 的 倍数 时 ， 就 改变 ? 
的 计算 公式 。 由 于 这 是 根据 x 的 值 而 选择 不 同 的 计算 y 公式 , 因此 是 多 分 支 选择 , 可 以 用 ON 
~ GOTO #1], fi ON -GOTO 语句 中 的 算术 表达 式 的 值 每 增加 值 1 就 会 改变 转向 的 语句 〈 匈 
54. 6), 所 以 我 们 必须 找到 这 样 的 规律 , 使 x 每 变化 10 就 使 “算术 表 达 式 ”的 值 增加 1。 可 
以 找到 这 样 的 关系 ; 


N=INT (X/10) +1 
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FIA 0<Х<110{, Nel, 10<X<20 i}, N=2, 202<X<30 BF, N=3, +, BUSH) КЕШЕ 
序 : 

10 INPUT “х=”, X 

20 JFX<00QRX2Z5DTHEN 10 

30 N=INT (X/10) +1 

40 ON N СОТО 50. 50, 60. 70, 80, 90 

50 Ү=10+Х; GOTO 100 

50 Y=20: СОТО -00 

70 Y=20— (х—30); СОТО 100 

BO Ү=20; GOTO 100 

90 Y=10— (Х—50) 

100 PRINT "X—"; X, "Y=; Y 


998 END 

运行 情况 如 下 ， 
Ф x=5⁄ 

x=5 Y=15 
@ x=15⁄ 

X=15 Y=20 


请 分 析 ， 为 扎 么 在 ON - GOTO 语 条 中 有 两 个 相 司 的 行 号 60? 
4.1 зех, Жу 


реет GSO 
Уе афт G<D 


4.2 铁路 托运 行李 ， 从 四 地 到 乙 地 ， 按 规定 每 张 客票 托运 行李 不 超过 50 公斤 时 .每 公 
FO 13 元 ,如 超过 50 公斤 , 超过 的 部 分 按 每 公斤 0. 20 元 计算 。 如 果 行 李 重 量 为 FF 公斤 , 运费 
ЫХ. 计算 公式 为 ， 


10.13 X W CW < 50) 
{oxo GF — 50 х 0.20 (и 50 


4.3 输入 ae 三 个 数 ， 要 求 将 绝对 征 最 大 者 打印 出 来 。 

4.4 给 定 一 个 年 份 ， 判 断 它 是 否 羡 年 。 半 年 的 条 件 是: 能 被 整除 但 不 能 被 100 整除 ， 
或 者 能 被 100 整除 日 能 被 100 H. (PIA 1989 不 是 同年 ，1992，2000 年 是 闲 年 ) 。 

4.5 给 定 一 个 整数 , 判断 它 能 否 疲 З, 5, 7 束 除 ,并 根据 判断 结果 打印 出 以 下 舍 
号 能 同时 被 3, 5. 7 ER ORRE AR GAIRA, АП 3，5; 或 5, 7; 或 3，7) нар, 
避 只 能 被 其 中 一 个 数 幕 除 (说 明 是 圭一 个 数 ) 整除 。 扣 木 能 被 ?3，5，7 整除 。 
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4&6 某 班 期 考 三 门 课 , 共 中 两 门 为 主 课 , 数 求 挑选 出 符合 下 列 条 件 之 一 的 学 生 ; 人 三 门 
课 总 分 高 于 270 分 者 ;人 两 门 主 课 均 在 95 分 以 上 者 ;多 一 门 主 课 为 100 分 ,其 它 两 7 门 在 80 分 
以 上 者 。 输 入 学 生 学 号 和 三 门 课 成 线 《 主 课 C1、C2， ЕЕЕ СЗ). 如 符合 以 上 条 件 涤 . 打印 
出 学 导 和 .三 门 课 成 绩 以 及 总 分 和 平均 成 绩 . 

4.7 BRRR O, Л. 22, Е, 


[EEX 
EC сау G< 0) мо 
һ <<) а 
@ < < t) хи 
(kt) 
(< b 
编程 序 ， 先 输入 azot h BWA R o m m t 
后 程序 输出 z 的 值 。 
4.8 9—8, Шоно 00, 0, Ф Н 4222 


7 一 10。 见 图 4， 23, REF, 输入 任 一 个 点 A 的 坐标 z,y ， 判 断 该 点 在 圆 内 ， 或 圆周 上 ,或 
圆 外 ,打印 出 相应 的 信息 。 
4.9 计算 税金 。 按 不 同 收入 〈4 ) 纳税 。 办 法 如 下 ， 


41 去 500 Ж 
500< 4 <1000 超过 500 元 的 部 分 ， 交 税 20% 
1000< A<1500 除 1000 元 以 内 的 按 以 上 办 法 计算 外 ， 超 过 1000 的 部 分 按 25% 计 算 
1500< А 2000 除 1500 元 以 内 的 按 以 上 办 法 计算 外 ， 超 过 1500 的 部 分 按 30% 计 算 
2000< А <2500 除 2000 元 以 内 的 按 以 上 办 法 计算 外 ， 超 过 2000 的 部 分 按 35% 计 算 
2500< л <3000 除 2500 元 以 内 的 按 以 上 办 法 计算 外 ， 超过 2500 的 部 分 按 40% 计 算 
3000 一 4 除 3000 元 以 内 的 按 以 上 办 法 计算 外 ， 超 过 3000 的 部 分 按 50% 计 算 


编程 序 ， 答 入 收入 A， 输 出 应 交 税 款 Tax, 

4 10 有 -城市 ， 周 围 有 四 个 卫星 城 , 土地 的 价格 分 别 为 中 心 城内 每 诗 20000 元 ， 卫 
星城 内 每 亩 10000 元 , 其 它 地 方 每 亢 5000 元 。 设 中 心 城 和 卫星 城 均 为 图形 。 圆心 的 坐标 分 别 
为 0 (0, 0), O, (50, 50), О, (—50, 50), Os (—50, —50), ，0，(50、 一 50) 。 中 心 城 的 
半径 为 18 千 米 ， 卫 星城 的 半径 为 10 千 米 (图 4。，24)。 编 程序 ， 输 入 任 一 点 坐标 (zx,y) 和 
和 欲 买 地 亩 数 ， 要 求 输出 该 点 坐标 ; @@ 是 否 在 中 心 城内 或 卫星 城内 ，@@ 每 亩 地 价 以 及 总 购 地 
所 需 款额 。 
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图 4.24 


图 4. 23 
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第 五 章 ”循环 结构 程序 设计 


S51 Ж 述 


在 所 处 理 的 问题 中 , 往往 直到 一 些 需要 循环 处 理 的 问题 , 例如 需要 对 - -个 班 的 30 名 学 生 
的 成 绩 进 行 检查 , 将 不 及 格 者 打印 出 来 ; 对 1 一 100 间 各 数 逐 个 检查 它们 是 否 素数 ; 对 若干 个 


100 


数 进行 累加 《〈 例 如 求 Da); … 等 , 解决 这 些 问 题 所 用 的 算法 , 都 要 用 到 循环 结构 。 在 第 二 章 


$ 2.8 中 已 介绍 了 循环 结构 的 概念 。 在 BASIC 中 可 以 利用 不 同 的 方法 来 实现 循环 结构 , 例如 ， 
可 以 用 GOTO 语句 形成 循环 。 
【 例 5. 1]〗 累加 器 程序 . 将 键盘 每 次 输入 的 数据 进行 累加 〈 例 如 用 于 运动 会 的 计 分 ,或 

商店 、 银 行 的 算账 )。 这 个 程序 使 计算 机 用 起 来 如 同一 个 计算 器 。 

10 LET T=0 

20 INPUT “x=”; X 

30 LET T=T+X 

40 PRINT “T=”; T 

50 GOTO 20 

99 END 

RUN 


х 
l 


з 
I 

эз юч 

9 

~K 


x а x H хоз x 
l" l ü Ú | 
уз зз ф ә м 
з Ë 
[9 
в 


? 

当 使 用 者 从 键盘 打 入 一 个 数据 后 ， 计 算 机 马上 打出 当前 的 累计 值 。 然 后 GOTO 语句 使 流 
程 转 回 20 语句 要 求 再 输入 一 个 数 。 每 输入 一 个 X 值 后 , 就 累计 出 总 和 。 这 是 一 个 无 终止 的 循 
环 ， 程 序 不 会 白 动 终止 。 如 果 不 想 继续 输入 数据 ， 必 须 用 入 工 干预 强制 使 程序 终止 运行 〈 按 
“Сш” 十 “C” 键 或 “Ctrl” 十 “Break” 键 ) 。 请 考虑 如 果 将 “GOTO 20” 改 为 “GOTO 10", 会 
出 现 什 么 结果 ? 

[05.2] 输入 华氏 温度 ， 要 求 转化 为 摄氏 温度 c 和 绝对 温度 2 。 公 式 是 ， 


70 


25 (р 
e= (F — 32) 


Z =273. 164 С 
可 以 编写 出 以 下 程序 ， 
10 PRINT “ F”, “ C”, * Z” 
20READ F 
30 С=5/9* (F—32) 
40 Z=273. 16 十 C 
50 PRINT F, C, Z 
60 СОТО 20 
70 DATA 32, 135.5, 68, 3, 12.7. 87.4, 99 
100 END ` 


程序 运行 时 , 从 DATA 语句 中 起 第 一 个 数据 32=> F , 然后 计算 2 和 2 并 打印 出 了 .CE 的 
值 。 再 读 第 二 个 数据 135，5-> ?， 再 计算 C 和 并 行 打印 相应 的 F, CE 4, 直到 读 最 后 一 个 
数据 99ДЁё 了 ， 并 计算 和 打印 。 打 印 的 结果 如 下 : 


RUN 

F c z 

32 ° 278.16 
135.5 57. 50001 330. 66 
68. 3 20, 16667 293. 3267 
12.7 —10, 72222 262. 4378 
87.4 80.77778 303. 9378 
99 37.22223 310. 3822 


OUT OF DATA IN 20 

TES H i ati — Н ЕА, 60 语句 又 使 流程 转 回 到 20 语句 .但 此 时 DATA 语句 中 的 数据 
EARR, REEM “数据 区 已 无 数据 可 读 ” 的 锥 误 . 打印 出 “Dut of Data”， 表 示 出 现 了 
“要 读 的 数据 不 够 ”的 错误 , 程序 中 断 运行 。 但 上 面 输出 的 所 有 计算 结果 从 然 是 正确 的 。 只 是 
在 输出 完 最 后 一 行 后 再 执行 READ 语句 时 才 出 错 。 因 此 不 影响 出 错 前 的 计算 结果 ， 

上 上 面 两 个 例子 是 用 сото 语句 构成 无 终止 循环 。 这 种 循环 虽 能 得 出 结果 ， 但 不 会 自动 终 
止 . 或 者 输出 出 错误 信息 。 它 不 符合 结构 化 原则 ， 不 宜 提 倡 使 用 。 我 们 所 说 的 循环 结构 是 指 
能 终止 的 ， 可 以 用 不 同 的 方法 形成 循环 : 

OD) 用 IE 语句 和 GOTO 语句 形成 循环 

(2) 用 WHILE 语句 形成 循环 

(3) 月 FOR -NEXT 语句 形成 循环 


55.2 用 正 语 向 和 GOTO 语句 实现 循环 
сиз] ж Ун, MARAM БА. 
程序 为 


10 т=0; N=1 
71 


20 T=T+N 

30 N=N+1 

40 1FN<=10 СОТО 20 

50 PRINT " TOTAL” T 

99 ЕМО 

RUN 

TOTAL=55 

20-40 FARAR, 第 一 次 执行 完 20 语句 后 . 
T 的 值 为 1, 然后 N 十 1>N,N 变 成 2。 用 40 语句 判断 是 
否 应 继续 执行 循环 。 只 要 NKC WB E 20 语句 ， 继 续 21 
执行 循环 。 直 到 第 10 次 循环 将 N НИЕ (0) 如 到 了 中， 

N+1=N, N 的 值 变 或 11， 业 时 IF 语句 中 的 关系 表达 式 “N<=10” 的 值 为 假 ， 不 青 继续 循 
SPa 执行 50 语句 ， 输 出 结果 。 

Ж (1) N -S 图 中 , 直到 型 循环 的 终止 条 件 是 “> 10”， 币 程序 中 TF 语 包 中 关系 表 法 
RA “N> 一 :0” 这 两 香 愉 互 为 “ 反 条 件 ”。 这 是 习 于 直到 型 循环 结构 表示 的 是 “到 N> 10 就 
ЖЕЦЕ”, 而 IF 语句 表示 的 是“ 若 N<10 时 , 返 区 20 行 。 继 续 执行 循环 "， 二 者 目的 一 致 ， 
仅 是 表示 方法 不 同 。 

(2) 程序 中 IF 语句 中 的 端 续 执行 种 环 的 条 件 是 “N 所 10”， MRE NKI, 许多 初学 者 
往往 异 写 为 “N<10?, 这 样 就 少 进行 -次 累加 操作 ,未 将 N= 10 的 已 累加 到 工 中 。 因 为 此 时 
N 用 已 等 于 10, EHRM "TNT HRE, REFR KAR, W N 的 信 加 到 了 н, 
N+1=N， 此 上 旦 N 一 11， 才 不 应 再 继续 执行 钼 环 ， 这 个 问题 务 希腊 清楚 。 

(8) 被 反复 执行 的 部 分 称 为 “ 忻 环 体 ”， 本 例 中 20~ 30 语句 就 是 循环 体 ，40 许 介 是 循环 
的 控制 部 分 ， 不 属于 循环 体 。 

本 例 也 可 以 改 用 “ 当 型 循环 ”实现 ， 见 图 5. 2。 

程序 可 以 改 为 ， 

10 T—0; N=1 

20 IF N<<= 10 THEN T=T+N; N=N+1, СОТО 20 

30 PRINT” TOTAL="; T 

40 END 

AHB SEN R, 一 个 IF 语句 写 不 下 , 可 以 将 20 
HIRIA: 

20 1F N>19 GOTO 50 

30 T=T—N 

40 N=N+i 

45 GOTO 20 

С 5. 4】 对 例 5.1 程序 作 改 进 ,使 之 能 自动 终止 循环 , 我 们 可 以 人 为 开设 置 一 个 “ 佳 
ИЖЕ”, 当 输入 此 数 尝 时, 街 环 就 终止 。 假设 我 们 以 X= — 9999 为 控制 循环 终 赴 的 
数据 ， 则 程序 修改 为 : 

10 T=0 

20 INPUT х=" X 


?2 


30 „IF X=—9999 СОТО 99 
40 | T=T+X 

50 | PRINT “T=”; T 

60 [жет <=" K 


то “GOTO 20 
99 END 
FET, 
RUN 

X=? i 

T= 8 
х=? 
T= 21 

X=? —12⁄ 
Tæ 9 

Х= 911. 52/7 
T= 20 25 


X=7 899 СЕКТ. MA 9999, ARD 

AA RASER ЖОЛ LRE”, CHETU EPEHA. 例如 999, 
9999, 100, 10000 #90, BEER, CREA AARE” ARR. FU 99 作为 “终止 标 
Ж”, НЕ 99 累加 到 T 中 怎么 办 ? 一 输入 99, 循环 就 终止 了 ，99 无 法 黑 加 到 了 中 , A 
А, ЕЖ И" E ш” ЖАЙ. 

[8]5.s] ЖЫЯ. 

选票 的 格式 如 图 SR E LD 同志 的 代号 是 1， 张 (Zhang) 同志 的 代号 是 2, E 
CWang) 问 志 的 代号 是 3。 以 一 1 作 终 止 标志 。 程 序 如 下 ， 

10READ А - 

2D IF A 一 一 1 СОТО 80 

30 IF A=1 THEN L=L+1: СОТО 70 

4D IF А=2 THEN C=C+1; GOTO 70 

50 IF A 一 3 THEN W=W—]: GOTO 70 

50D 一 D 一 1 

70 GOTO 10 

30 PRINT “COMRADE 1Д;”; L 图 5.3 

90 PRINT “COMRADE ZHANG:”; С 

100 PRINT “COMRADE WANG;”;, W 

110 PRINT “INVALID:” D 

120 BATA 2, 1, 3, 2, 3. 3, 1.3, 3, 2,1, 2, 1, 2, 1, l, 3, $, —1 

399 END 

RUN 


COMRADE LI, 6 
COMRADE ZHANG, 5 
COMRADE WANG, 7 
INVALID; 0 


在 本 例 中 ， 由 于 伐 选 入 没有 以 “一 1” 作 编号 的 ， 因 此 用 “一 1” 作 “次 止 标志 ”是 可 以 
的 。 在 例 5. 3 中 ， 终 目标 志 是 从 键盘 输入 的 。 在 本 例 中 ,“ 一 1” 是 放 在 DATA 语句 中 ， 即 写 
完 所 应 输入 的 数据 后 ， 最 后 写 上 标志 “一 1?。 这 种 用 法 更 为 方便 。 

在 本 程序 中 , 每 次 读 出 A BE, 首先 判断 是 否 “ 营 目标 玉 ”“， 如 不 是 , 则 判断 是否 为 1， 如 
是 1， 则 给 李 同志 加 一 车 十 1=>L) 。 媳 不 是 1， 则 再 判 是 否 >， 如果 是 2， 则 给 张 司 志 加 - - 
Ж (Z+1>0), 如 =3， 则 给 王 同 志 加 一 票 《W 十 1=>WW)。 若 读 入 的 不 是 1, 2，3 之 一 ， 则 
EERE (ADHERA). 使 局 一 1 过 >D。30~50 行 中 , 用 GOTO 70 转 到 ?0 语句 ,然后 再 
返回 10 语句 ，70 语句 作为 “汇合 点 ”。 当 然 也 可 以 直接 将 30—50 行 中 的 “GOTO 70” 改 为 
“GOTO 10”。 伍 程序 的 清晰 度 降低 了 . 本 程序 中 各 路 径 全 部 汇合 到 TEI, 再 统一 进行 循环 
ЖЕ. ЖЖ ДЕН М -5 图 可 下 成 图 5. 4 形式。 

通过 以 上 沁 个 例子 ,可 以 看 到 ,控制 循环 的 IF 语句 可 以 寺 现 在 循 蒜 体 的 前 面 〈 例 5. 5) ， 
也 可 以 出 现在 循环 体 的 后 面 ( 例 5. 4). 希望 读者 能 灵活 应 用 IF 语句 和 СОТО 语句 构成 循环 。 
应 该 说 明 ， 这 二 种 形式 的 循环 是 可 以 相互 转换 的 。 读 者 可 自己 完成 它 。 
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МШ sum, ТИ n 


图 5.4 图 5.5 


2 3 其 它 


1 
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55.3 用 WHILE j# ë) 3: Iih IR 


MS ~ BASIC 提供 了 WHILE 语句 直接 实现 当 型 循环 , 比 用 IF - GOTO 实现 循环 更 为 方 硕 
它 的 一 般 形式 如 下 
. WHILE :关系 表达 式 ; 
<BR> 
WEND 
当 关系 才 达 式 为 “ 真 ”( 即 当 给 定 条 件 满足 ) 时 ,不断 执 行 循 环 ， 直到 关系 表达 式 的 值 为 
“R” эш, 
ШЙ р ЖТТ E ga 项 人 二) 的 值 天 于 10-: 对 , 黑 加 一 可 进 


FTE, арто Е, 
ЯНАО, RA S.E 
74 


程序 如 下 : 
10 SUM=0: DENO=1: TERM=1/DENO 
20 FWHILE TERM >. 0001 

| SUM=SUM+TERM 


10 DENO=DENO+1 

50 TERM=1/DENO А 
60 WEND 

70 PRINT” SUM=”; SUM,” N=”; DENO—1 

99 END 

RUN 


SUM = 9.787512 N= 9999 
程序 中 以 SUM 代表 累加 和 ，DENO (denominator 的 编写 ) 代表 “分 母 "， 以 TERM 代表 某 
一 项 (CL) 的 值 。 先 求 出 第 一 项 (十 ) 的 值 。WHILE 语句 判断 TERM БЕ АР 10-… 如 
是 ， 则 将 TERM 加 到 SUM 中 ， 然 后 使 分 母 加 1， 再 求 出 多 项 式 中 下 一 项 的 值 TERM， 如 此 特 
环 下 去 直到 某 一 次 TERM HEKI 为 止 《 注 意 该 项 不 加 到 SUM 中 )。 
WEND 是 “WHILE END” 的 缩写 , 下 它 标 志 循环 体 的 范围 (WHILE 语句 和 WEND 语句 之 
间 的 话 句 为 循环 体 。WEND 语句 使 流程 返回 WHILE 语句 判断 是 否 应 继续 执行 循环 )。 
СБ. тр 若 我 国人 口 每 年 以 1. 5% 增 长 率 增长 ， 问 多 少年 后 我 国人 口 达到 或 超过 12 
亿 。1982 年 人 口 数 为 10.3 亿 。 从 1982 年 算 起 。 
解 此 问题 的 思路 是 这 样 的 ， 从 1982 年 起 ， 每 过 一 年 算 - -次 人 口 总 数 ， 计 算 公式 是 ， 
P, = P0 x (1 + R) 
Po YEA TUR, Pi 为 一 年 后 人 口 数 , ЭЕ OR BBS K 12 亿 作 比较 ,看 是 否 已 达 


到 或 超过 12 亿 。 画 出 N-S 图 (图 5.6)。 
N 代表 从 1982 енин еи, нане 


Ж: 
10 R=.015 
20 N=0 
P=EX(+RI 


40 WHILE P<1.2E+09 

50 Р=Р»(1+Ю) 

60 N=N+1 

70 МЕМО 

80 Y=1982-+N 

90 PRINT "R=—" RN—"N РУЗ" ҮР ТР 


一 .015 N=11 Y=1993 P=1.213287E+09 

在 程序 中 只 设 了 一 个 吕 来 代表 “当年 人 口 数 ”"，50 语句 中 赋值 号 右边 的 己 是 原来 的 人 口 
数 ， 赋 值 号 左边 的 忆 是 一 年 后 的 人 口 数 。 不 断 累 增 。 这 样 做 程序 简短 些 。 也 可 以 设 两 个 变量 
P0.P1 分 别 代表 增长 前 和 一 年 后 的 人 口 数 ， 这 时 30—70 语句 应 改 为 : 
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30 P0=10.3E8 

40 WHILE PO<~=12E8 
50 Pl=PO» (1+R) 

60 N=N+1 

65 Р0=Р1 

70 WEND 

在 求 出 Pl 之 后 , 还 要 将 PRA РО 作为 下 一 年 度 的 “ 原 人 口 数 ”"。90 语句 中 的 P 也 应 改 
为 PO (用 P1 也 可 )。 

也 可 以 将 10 语句 改 为 ， 

10 INPUT “R=”; R 
由 键盘 输入 年 增长 率 。 这 样 可 以 计算 不 同 增长 率 的 情况 。 

【 例 5.8】 给 一 个 数  ， 判 断 它 是 否 素数 〈 即 质数 ) 。 

所 谓 素 数 ,， 指 除了 1 和 它 本 身 之 外 , 不 能 被 任何 整数 整除 的 数 ， 例 如 17 是 素数 ， 因 为 它 
不 能 被 2~16 间 任 何 整数 整除 。 判 断 M 是 否 素数 最 原始 的 方法 就 是 先 用 2 除 M， 再 以 3 除 
M, ==, 最 后 以 M - 工 除 M, MERRTE, 则 M 必然 是 素数 。 只 要 其 中 有 一 次 被 除 尽 、 则 
M 不 是 素数 。 其 实 M 不 必 被 ~ (M-1) 间 全 部 整数 除 ， 只 要 被 2 一 VM (如 VM 不 是 整数 
则 取 其 整数 部 分 )》 除 即 可 。 例 如 判断 17 是 否 素 数 ， 只 需 将 17 被 2，3，4 除 即 可 《x17 取 整 
得 4)。 为 什么 ? 请 读者 分 析 。 

在 考虑 算法 时 , 要 考虑 : 锦 环 的 条 件 是 什么 ? DREI h 2 开始 , 当 除数 所 VM 时 , 循环 
就 要 继续 下 去 ; @ 当 某 一 次 M 被 1 整除， 则 不 应 再 循环 下 去 。 怎 样 表示 “M 能 被 I 整除 ” 呢 ? 
可 以 设 一 个 “开关 ”Switch, 当 它 的 值 等 于 0 时 代表 “尚未 被 1 整除 过 ”, 一 旦 被 某 一 个 整除 、 
就 使 它 的 值 为 1。 因 此 ， 循 环 条 件 应 为 “TVM 和 Swirch 一 0"。 算 法 见 图 5. 7。 

当 在 某 一 次 循环 中 , M 被 整除, switch HERR 1 根据 循环 条 件 , 不 再 执行 循环 体 , 注 
意图 5.7 中 Ss 这 一 步 。 # M 曾 被 任 一 个 I 整 除 ， 则 Switos 的 值 必 为 1, 因此 打印 m ЖЖ 
Ж”. 若 M 未曾 被 任 一 1 整除 ， 则 Swick 保持 为 0。 在 8; 步骤 中 打印 M “是 素数 ”。 

FEF: 
10 INPUT” M=”, M 
15 IF M=2 THEN PRINT ”2 is a prime number”, END 
20 М=1МТ (SQR (M)) 
30 1=2: SWITCH=0 
40 WHILE 1=N AND.SWITCH==D 
50 IF M;/1—INT (МИ) THEN SWITCH =] FLSE 1 一 1 十 1 
60 WEND 
70 IF SWITCH=0 THEN PRINT М;” із а prime number” 
ELSE PRINT М,” is not prine number” 
90 FEND 
运行 结果 如 下 ， 
Фм=17,/ 
1? is a prime number 
DM= 16x 
18 is not prine number 


76 


M= 
2 js а prime number А 
请 注意 50 语句 中 判定 М 是 否 能 被 1 整除 的 s| sm | 
ЖГ. Ж FCR n. ЙМ ЖИ. 
M/I SINT (Mji) S 
B]: М —16,/ =4,15/1=1МТ (1674) 成 立 , 等 。 Sr 
号 两 侧 都 等 于 4，INT м 能 被 ! 整除 . 如 果 М 一 
17, 7 =3, 17/396 (17/3) =5. 17 不 能 被 5 整除。 
这 是 因为 若 一 个 数 X 等 于 它 的 整数 部 分 (INT 5. 
(хз), H) x 必 为 整数 ， 例如 S= INT (6), 而 6.5 
=INT (6.5), 
求 两 个 数 相 除 的 余数 苑 方法 是 ， 
R=M—INT (МЛ) >I 
M 和 1 部 是 整数 。 测 如 求 17 被 3 除 的 余数 R. R 
一 17 一 INT (17/3) + 3=17- INT (5. 685665) + 
3 一 17 一 5* 3 一 2, ## R=0, 表示 M 能 1 整除 , Н 
此 ，、50 语 各 也 可 改写 为 ; 
5t IF M— INT (МЛ) *1=Ç THEN SWITCH 一 ] ELSE 1=1--1 
有 的 计算 机 系统 所 用 的 BASIC (如 Applesoft BASIC) 不 提供 WHILE - WEND 语句 ， 订 以 
PKR] IF ~ GOTO 语句 来 实现 当 型 镍 环 。 本 节 中 外 个 网 子 都 可 以 改 用 IF -GOTO 来 实现 ， 请 读 
者 自己 完成 它 ， 基 不 难 。 请 读 考 仔细 消光 这 几 个 例子 中 的 算法 ， 它 们 者 是 很 基本 的 。 


ү каже" 


图 5.7 


55.4 用 FOR - NEXT 语句 实现 循环 


如 果 已 知 循环 次 数 的 话 ， 使 用 FOR -NEXT 语句 实现 循环 更 为 方 香 ， 先 着 下 面 贾 个 程 


Z 
[ 例 5.93 
程序 (а) 程序 (b) 
10 Х=1 10 FOR Х=1 ТО 5 STEP 1 
20 IF X>5 GOTO 60 30 PRINT “Х="; X 
30 PRINT “Х="; X 10 NEXT X 
40 х=х+1 60 END 
50 GOTO 20 
60 END 
RUN 
x=1 
х=? 
X=3 


程序 (a) EHA F - СОТО 语句 编程 序 , ER X É$ 
值 ， 每 次 镇 环 后 的 值 加 1， 共 循环 5 次 。 程 序 (b) 是 
F РОБ - NEXT 语句 实现 上 述 要 求 的 ,也 是 循环 s k E 
们 的 作用 是 相反 的 .都 可 以 用 图 5. 3 表示 其 流程 。 可 以 
看 出 ， 用 FOR - NEXT 语句 实现 循环 ， 能 使 X 自动 得 到 
一 个 初 值 ， 在 每 次 循环 后 X 自动 增值 碍 每 次 循环 开始 
对 将 X 与 5 进行 洲 较 , Ш х5 RALAR. В, E 
Ж w БЕ Ca) 使 用 更 加 方便 。 


5.4.1 ШУА 


FOR 语句 是 循环 的 起 点 ， 称 “循环 说 明 语句 ”或 
“循环 起 冶 语句 ”。 由 它 决 定 应 执行 几 次 循环 。NEXT 是 
“ARREA”, POR 和 NEXT 语句 两 者 必须 成 对 凸 
现 , 缺 一 不 可 .。 FOR 语句 中 的 变量 ( 称 循 环 控制 变量 ) 必 
须 与 NEXT 语句 中 的 变量 相同 〈 如 上 例 中 的 Х). 

FOR 语句 的 一 般 形式 为 

FOR X=A ТО B STEP C 

X 为 循环 控制 变量 (或 称 钳 环 变量 ), 可 以 冒 插 一 简 
单 变量 来 表示 ; ms. я 

А 为 循环 变量 初 值 ; 

B 为 循环 变量 终 值 ; 

С 为 循环 交 量 的 增 量 《或 步 长 )。 

这 个 语句 的 意思 是 , 循环 变量 XRAM A 开始, 到 多 超过 B 时 结束 ,每 循环 一 次 x 的 值 
Jë C, 

A、B、C 可 以 是 常数 ,或 已 被 荆 值 的 变量 ， 也 可 以 是 算术 表达 式 表 达 式 内 的 变量 必须 
CERED. W: 

10 FOR X=3 х 5 TO LOG (20) STEP — 5/2 

NEXT 语句 的 一 般 形式 是 : 


NEXT X (X 为 循环 变量 ) 


NEXT X 的 意思 是 : 执行 到 此 庄 句 时 , 循环 变量 就 取 下 一 个 XX 值 , Р Н. 然后 
判断 和 决定 应 否 进行 下 一 次 循环 。 
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5.4.2 循环 语句 的 执行 过 程 


(1) 在 执行 FOR 语句 时 ， 把 初 值 A 赋 给 循环 变 肌 X， 并 将 终 值 与 步 长 沁 上 来 , 将 X 值 
BN B 比较 .如 果 久 超过 B 则 不 执行 FOR 与 NEXT 两 语句 之 间 的 所 有 语句 (这 些 语句 称 特 
SEE. MIBER) NEXT ЕДЕ FA. В} “ЙТ” Я. 
(2) 如 果 循 环 变量 的 秆 X 未 超过 终 值 B， 由 顺序 执行 FOR 与 NEXT 两 语句 之 间 的 语句 。 
盘 环 变量 一 直 保 竺 原来 的 秆 直到 NEXT 洛 问 除非 重新 对 它 赋值 。 
(8) 执行 到 NEXT БЕП, дЫ ЧИЕ ЭРЕК” EIB. “РЕ” h STEP ERIA ИН 
给 定 。 也 就 是 入 十 C=> 和 《在 十 而 的 例子 中 第 一 次 执行 30 语句 时 ，X 十 1=>X， 即 将 1 十 1 一 X， 
X 值 变 成 2 。 
CA) 将 已 增值 的 循环 变量 X адолии в ER, лох 仍 未 超过 终 值 , 则 重复 执行 (2)、 
(3) # CGO. 每 德 环 一 次 ， 循 环 变量 和 的 值 增加 一 个 步 长 什 C。 如 此 反复 循环 ， 直 到 锯 环 变 
基 的 值 超 过 终 什 为止。 此 时 转 面 执行 NEXT 后 面 的 语句 。 
例 5.9 中 程序 (0) 在 1BM - РС, &# 0520 和 APPLE -I 计算 机 上 运行 情况 如 下 ， 


алкин ` x ешт ЕКЕ 
1 < 执行 
2 2 <s 执行 
Н 3 <s 执行 
4 + < 执行 
5 4 一 5 执行 
5 5 ` >5 PERT 


H X =5 B. EEMI GTE “5”) 一 次 ， 当 再 执行 到 NEXT EAE X —6 时 ， 
就 停止 执行 循环 而 执行 88 语句 (ЕМО РЈ), ЖАКТ ЖК. 
循环 的 流程 图 名 图 5.9. 


5.4.3 执行 FOR 循环 中 的 一 些 问 是 


{一 ) 步 长 值 可 以 为 正 值 (循环 变量 递增 ): 也 可 以 是 负 值 Ой. BD STEP 之 后 的 C 可 
以 是 正 数 或 负数 。 当 步 长 值 为 1 时 ，*STEP” 和 它 后 而 的 步 长 值 林 以 省 玫 不 写 。 
СЯ 5.101 步 长 为 正信 。 ` 
10 FOR X=1 TO 10 STEF 2 
20 PRINT X; 
350 NEKT X 


40 END 

RUN 

1 3 5 7 9 

ЕЕ К. 当 执行 完 5 次 后 ,六 又 加 2,X 的 值 等 于 1 ,而 1:>> 
10 ( 终 肖 )， 故 脱离 循环 而 执行 40 语句 ， 当 步 奖 为 正 入 时 、 福 环 安 量 
的 什 在 变 到 大 于 终 值 时 才 终 止 勿 环 ， 

【 例 5.11】 куж. 

10 FOR X=} ТО 10 STEP 0 

20 PRINT X; 

30 NEXT K 

40 END 

RUN 


LT - 
直 循 环 下 去 ， 因 为 大生 始 终 等 于 初 值 1 而 小 于 终 值 10。 
[ 例 5.12] ЖКА. 
10 РОК Х=10 TD | STEP 一 1 
20 PRINTX; 
30 NEXT X 
40 END 
RUN 
939876 548321 
每 经 过 一 次 循环 , x 值 就 减少 1, ERE X =1, 由 于 步 长 为 负 俩 , MERHER - 
个 天 的 数值 “ 冯 向 ”一 个 小 的 数值 , X= rj, ETR EI” AEL Ew, ERER H- 
次 循 泵 体 ， 打 印 式 值 ， 当 X 再 加 一 次 一 ,于 =0 了 , ШЕЕ Е” ИТТ. ВНЕ 
环 。 
WE 5.10 83 


pr зв на nn 
сї, х9» 0) аю) 
акти х Z ss 
Z М 
MAREE рк бй» эт 
та t, 


|{ 5. 
ÉR 5. 10 (а) 中 初 信 (一 10) J pR (0). PRAE X 出 小 到 大 变化 ， 当 x> 
о. ЯМР Е. 
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在 图 10 (b) 中 初代 (10) KPA (0) К. X H X) ik, мх си Онт, 
ЭЕ, 
ВНТ, ЧЕНО r" ЧАИ, ЖИПКЕ. 
ЭРЕ ЖАР, УЕД ТАНЕ EHR. 
СЯ 5.13] 初 值 、 次 值 、 步 关 均 为 负 值 。 
10 FOR Х=—100 TO 一 200 STEP 一 20 
20 PRINT X, 
30 NEXT X 
40 END 
RUN 
一 100 一 120 一 140 一 160 — 8) 一 200 
在 循环 六 次 后 , 工 变 成 一 220， 小 于 终 利 一 200， 停 止 循 环 。 
当 步 长 为 负 时 ， 图 5. 8 的 讶 图 中 的 判断 框 GREHE 内 的 “区 超过 终 值 ?” 可 以 理解 为 
“KLA. 
步 长 值 不 一 定 是 整数 ， 可 以 是 小 数 ， 如 : 
10 FOR X 一 1TOd ESTEPD 5 
20 PRINT X, 
30 NEXT X 
46 END 
请 读者 自己 写 出 运行 结果 。 
(D) 在 循环 体内 可 以 马 现 循环 变量 (如 上 例 中 的 Хо. 此 时 销 环 变量 的 值 在 每 次 循环 中 是 
不 同 的 。 短 环 变量 也 可 以 不 在 循环 体内 出 现 ， 此 时 ， 循 环 变量 的 作 月 公 在 控制 循环 的 次 数 ， 
LA 5. 14] 
16 LETX=1 
20 FORI=1TO5 
30 PRINT X; 
40 NEXTI 
50 END 
RUN 
l Iil LJ 
20 ИРЕР E EEK EA 5 Biz, ЗАК ТИЕ, 16 超过 5， 就 不 再 
PITT. 


下 面 两 个 程 之 作用 完全 相亲 : 
[0 5.15] 
FPF O Ez (D 
10 FORI=] ТОБ 15 Ров 1=—6 TO `0 
20 READ X 20 READX 
50 FRINTX; 30 РЕХТ X; 
+0 NEXT I 10 NEXT 


50 DATA 1, 2, 3. 4, 5 50 DATA 1, 2, 3, 4, 5 
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60 END 
RUN 


1 2 3 4 Š 


5 


在 程序 О) PERE Ih 6 变 到 10 MARIT 6, 7, 8, 9, 10 来 。 它 的 作用 仅 
УНИИ GRKA 1, MA 6 到 10 应 循环 五 次 ) 。 
程序 中 前 10 语句 改 为 : 


如 果 把 上 述 
10 FOR 1==0. 1 TO 0.5 STEP 0.1 


请 污 者 自己 分 术 一 下 它 的 运行 结 只 是 什么 ? 
(D 在 循环 中 一 般 不 应 再 对 循环 变量 赋值 。 如 果 有 尺 下 程序 ， 


UA 5. 16] 


10 РОВ X= 


1TO5 


20 Х=?»Х 
30 PRINT X, 


40 NEXT X 


50 END 


ЖШ, AILE ИКЕ? 如 果 没 有 20 Bb] 0 ВИТ 5 ИРК. БИЛЕН T 20 E 
使 循 坏 变 基 的 划 改 安 了 。 人 在 执行 第 一 次 循环 时 X 初 值 为 :， Br 20 语句 后 X UB AE 2. 执 
{т 40 语句 后 X 青 增值 交 为 3, 在 执行 第 二 次 循 坏 时 , x 的 值 开 始 时 为 3. 执行 20 语句 后 的 
EHE. 在 打印 式 的 值 5 之后， 循环 终止 ， 共 执行 了 两 次 〈 而 不 是 3 次 ) 循环 . LE 


5.1. 
5.1 
ЯТАК АЙ КЕТ TI Ж Ж 
жй 执行 本 次 循环 ШЕ 话 名 执行 46 诗句 БЕЗ АНЕ 
4 ЭИ х зин TXR O хв pict _ ЖТ 
1 1 2 3 3<5 k 
2 3 6 ! 7 7>5 # IF 


程序 编写 朝 的 原意 是 想 输 山 出 2，4 


RUN 
2 


6 


6, 8，10 这 样 五 个 数 ， 结 果 只 能 输出 两 个 数 。 


因此 ， 在 一 般 情 况 下 不 提倡 对 循环 变革 再 赋值 。 但 在 某 些 时 候 ， 也 可 以 利用 以 上 特性 在 


未 达到 应 循环 钦 数 时 提前 终 士 循环 。 


【 例 5.17】 EEM 5.9 求索 数 世 可 以 用 下 面 的 程序 实现 : 


10 INPUT" M=”, M 
15 IF M—2 THEN PRINT” 2 is а prime number”, END 
2DN=INT (SOR (MD) 
3D РОВ I=z TO N 

40ТЕ MA=INT MA) THEN 1=2 =N 


60 NEXT I 


TD IF 1< =2 * N THEN PRINT M;” is a prime number” ELSE PRINT M;” is not a prine number” 


90 END 
82 


如 果 在 某 次 循环 中 M 被 1 整除， 使 1=2N， 在 执行 完 60 语 名 后 ,1 的 值 为 2N 一 1。70 语 
J 1 .62>2N, ME I>2N 表示 “M 曾 被 1 整除 ”。 如 果 M 都 不 曾 被 任何 一 个 1 整除 ,在 
脱离 循环 时 工 的 值 为 N 十 1， 它 必然 小 于 2N。 据 此 来 判断 М 是 否 素数 。, 请 读者 仔细 消化 此 理 
序 。 


§ 5.5 循环 语句 应 用 举例 


С 5.180 求 51, 即 1X2x3.…x5 

10 LETT=1 

20 FORI=2TO5 

30 LET T=T*1 

40 NEXTI 

50 PRINTT 

60 END 

RUN 

3. 6288Е--06 

用 变量 了 КЕКЖЯОЕ Н, RRI H 2 变化 到 5, 即将 1X2, ER 3, RA e R 

到 5 为 止 
А 
СЯ 5.10] R 22 ni ( 即 求 1 十 21 十 31 十 41 十 …201) 

10 1ЕТ8==0 

20 LETT=1 

30 FOR N=1 TO 20 

40 LET T=T*N 

50 LET S=S+T 

60 NEXT N 

70 PRINTS 

80 END 

请 读者 自己 写 出 每 次 循环 时 的 N、T、S 值 。 

，【 例 5.20】 ”相传 古代 印度 国王 舍 罕 要 误 赏 他 的 悦 明 能 干 的 宰相 达 依 尔 (国际 象棋 的 发 
明 者 )， 问 他 需要 什么 ， 达 依 尔 回答 说 ,“ 国 王 只 要 在 国际 象棋 的 棋盘 第 一 个 格子 上 放 ЖЕ 
+. 在 第 二 个 格子 上 放 2 粒 , 第 三 个 格子 上 放 4 R, 以 后 按 此 比例 在 下 一 格 中 加 一 倍 的 麦子 ， 

- 直 放 到 第 64 格 〈 国 际 象棋 是 8X8 二 64 格 , 见 图 5. 11), 我 就 感恩 不 尽 了 , 其 它 什么 我 都 不 
жү”. BEE: RAED! 还 不 容易 !”， 让 人 打 来 一 谎 小 麦 ， 但 不 到 会 全 用 没 了 ， 再 来 
- 狂 又 很 快 用 没 了 ,结果 全 印度 的 粮食 全 部 用 完 还 不 够 。 国 王 纳 阅 , 怎样 也 算 不 清 这 笔 账 , 现 
在 我 们 用 计算 机 来 算 一 下 。 
我 们 需要 计算 的 是 : p 二 1 十 2 十 2 十 2 十 …2”7 是 小 卖 的 颗粒 。1 立方 米 约 有 142x10 
颗 。 设 8 为 体积 。 . 
程序 为 : 


10 FOR N=0 T0 63 
20 P=2AN 
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30 T=T+P 

40 NEXT N 

50 PRINT ” total =”; T 
60 S=T/1. 12E+08 

70 PRINT ” Volume =”; S 
99 END 

RND 

totai== 1. 844674E+19 
Volume= 1. 299067E+ 11 


图 5.11 


计算 结果 为 ,共有 小 去 1. 84467109 Ж, 体积 约 1.3X10mms, E 
相当 于 全 中 国 960 万 平方 公里 的 土地 上 ， 全 锁 满 约 1, Зот 厚 的 小 考 粒 。 它 相当 于 我 国 几 百年 


的 产量 。 


【 例 5.21】 假设 有 一 对 兔子 , 到 第 三 个 月 又 生 下 一 对 兔子 。 设 以 后 每 对 兔子 到 第 三 个 
月 都 又 生 一 对 兔子 , 问 到 第 50 个 月 共有 多 少 对 兔子 , 这 是 一 个 古典 的 教学 问题 。 可 以 推算 出 ， 
"өө 。 即 第 一 二 个 月 只 有 -一 对 ， 第 
三 个 月 二 对 ， 第 四 月 3 对 ， 第 五 个 月 5 对 …，…。 可 以 发 现 这 样 一 个 规律 ， 从 第 三 个 月 起 ， 免 
子 对 数 为 其 前 二 个 月 兔子 对 数 之 和 ， 可 以 用 数学 方法 表述 如 下 ， 

一 个 数列 ， 其 头 二 个 数 为 1，1， 人 队 第 三 个 数 起 每 个 数 都 为 其 前 二 个 数 之 和 。 这 个 数列 称 
A “WRR (Fibonacci) 数列 "。 今 求 该 数列 前 50 个 数 。 


各 月 的 兔子 对 数 依次 如 下 ，1，1，2，3，5，8，13，21， 


10 А=1, B=1 

20 FOR 1=1 TO 25 
30 PRINT А, B, 
40 A=A+B 


50  B=B+A 
60 NEXT 1 

70 END 

RUN 

1 1 

8 13 

89 144 

987 1597 
10946 17711 
121393 196418 
1346269 2178309 


1. 493035E+ 07 2. 415782E 十 07 
1.65580IE 十 08 2.679143E 十 08 
1. 836312Е +09 2.971215Е+09 


2 


233 

2584 

28657 

317811 
3524578 

3. 908817E+ 07 
4.334944E+ 08 
4. 807527E 十 09 


3 


377 

4181 

46368 

514229 
5702887 

6. 324599E+07 
7. 014086E+ 08 
7Z.778741E+ 09 


5 

55 

610 

6765 

75025 

832040 
9227465 

1. 028342E+08 
1. 134903E 十 09 
1. 258627E 十 10 


从 图 5.12 中 可 以 看 到 ,入 和 B 初始 值 都 为 1， 它们 代表 第 一 、 二 个 数 。 在 执行 第 一 次 循 
环 体 时 ， :0 语句 使 A+B=>A, А 的 值 安 为 2，50 Е ВАВ, 注意 此 时 A 的 值 已 变 为 2 
T. 因此 3 的 新 值 为 1+2=3。 以 后 每 次 执行 循环 体 时 , A 和 B 各 得 到 一 次 新 值 . 每 一 次 打印 


出 两 个 数 ， 故 应 循环 25 K. 
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这 类 [5 题 属 于 “ 递 推 (recurence) H, ИШЕ ИНИ З A BR {ЙИ ЧЕККЕ. "ЫП 
问 你 数列 中 笋 13 个 数 是 多 少 ? 你 无 法 用 一 个 公式 直接 算出 来 , 必须 先 算出 11 条 12 个 数 才 能 
知道 第 13 И, RIARTE ЕИ АЛШ GERKE ОЕК “ЙД Дд”), A Fibonacci Y 
列 交 涪 ， 其 递 推 关 系 如 下 


F= Fpi H Fpa (n>2) 1 1 2 3 5 8 
其 初始 条 件 为 ， t + + + 
F=1 Е,=1 A— Вә A + 
以 FF; 代表 数列 中 第 儿 个 数 , 数列 中 各 数 B+ A> В 

的 值 可 以 表示 如 下 : RD ОВ ЧЖИ) 
[F=] n2) 215.12 


Е, =F, + Fa- (n> 2) 

在 用 计算 机 解 递 推 问 题 时， 常用 循环 来 公理， 计算 机 运算 速度 快 ， 处 理 这 类 问题 得 心 应 
+. ARERR. AARLE, 不 可 能 分 别 月 许多 变 重 各 代表 Pi， Fe Fy…**…F;， 
我 们 在 程序 中 只 用 了 两 个 变量 A ЯВ, 它们 的 信 不 断 变化 ， 在 第 一 次 循环 宁 它 们 代表 Р, F 
在 第 二 次 循环 中 代表 Fo Fo 在 第 三 次 循环 中 代表 F Fo, ose, MA A 和 8 不 断 地 以 新 值 
КАРИЛЕ, ЗК НЕКИЕ ЕО ВК Gerate), НИ А, В 
REA”. ТААТ У, 

ацетил яза Коала. 如 六 多 。 也 可 以 不 用 送 代 方 法 处 理 ， 例 如 可 以 
设 许多 变量 F1，F2，F3，…， 采 取 下 1--F2=>F3，F2 十 F3=>Fd，… 这 是 递 推 , 但 不 是 过 代 ,， 因 
为 没有 一 аавв. ЖЛ RYE) ы “ЖИ” ЮИ. Я 
循环 实现 近代 算法 是 很 方便 的 ， 

【 例 5.22】 求 图 5.13 浙 示 AB ЗЕ Е, 

可 以 采取 由 右 向 左 逐 级 递 推 的 方法 ， 把 在 个 启 路 用 虚线 分 为 若干 级 ， 罕 第 一 级 中 ， 岗 联 
ERAY: R: 十 Re, 把 这 个 值 送 到 变 往 R h ¿ENE R 一 Ri 二 Re， 再 以 R 与 Ri 并 联 , 并 联 信 为 ， 
RAR осон, Ен, ПИВКА ВОВ в 的 原 值 ， 它 是 Ri 十 Re。 箭头 
右边 的 R 是 R 的 新 值 .这 时 求 出 药 R 是 第 ~- 级 势 等 效 电阻 .再 以 这 个 R 与 第 二 级 中 的 串联 电 
Ек. ж, НУЧ R 并 联 . 求 出 第 二 级 等 效 电阻 民 信 和， 如 此 一 -家 求 出 总 的 等 效 电阻 
ЕҢ. 

于 这 种 办 法 解 ， 程 序 是 很 简单 的 : 

10 INPUT "RO,RI:R2—",RO.RI,R2 

20 PRINT " [”,” R” 

30 R=R0 

40 FOR [=I TO 5 

55 R=:R+R1 

60 R—R x R2; (R+R2 

70 PRINT 1, R 

80 NEXT I 

90 END 

程序 中 少 了 迭代 方法 ，R 是 迷 代 变 甚 、 运 行 后 ， 它 把 每 一 级 的 等 效 电阻 都 林 印 出 来 
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RUN 

RO, R1, R2=100, 200, 300 
I R 

1 150 

2 161. 5385 
3 168.9535 
4 164. 4483 
5 164. 5493 


585.6 ЖИ 23 


FARMARSKE, (8038р ЕН Р ТАТНА Е И РИ АКЕ А РР ВЕ 
ЖЕ. ЕЛИН УИИН, 

【 例 5. 23] ТЕ ЕЛ1Л Ж. 1х1=1, 1х2=2, +. ‚ 9х9= 81, 

我 们 先 考 志 如何 打印 1X1=1, 1X2=2, ее 1X9=9。 这 用 一 个 单 层 循环 就 可 以 解 
&. 

10 Aæ] 

20 FOR B=1 TO 9 

30 ШТР=А+#В 

40 PRINT A; “w”, Ву “=” P 

50 NEXT B 

60 END ` 

如 果 要 打印 2X1=2 到 2<x9=18, ДЖ ЫШ 10 语句, 使 A 一 2。 

要 打出 整个 “ 九 九 表 ”， 则 要 使 A 先后 等 于 1，2，3，……9。 每 个 A 值 都 要 执行 一 次 20 
语句 到 50 语句 的 B РК ОЕР A 每 次 固定 为 一 个 什 ，B 从 1 变化 到 9， 打 印 出 相应 的 乘积 ) 。 

用 双重 循环 就 可 使 问题 简单 多 了 : 

10 РОВ A=1 TO 9 

20 FOR B=1 TO 9 

30 LETP=A * B 

40 PRINT A; “x”, Ву “=”, P 

50 NEXT B 

60 NEXT A 

70 END 

把 它 和 前 面 那 个 程序 比较 一 下 ; 只 修改 了 10 语句 ， 增 加 一 个 60 语 句 ， 形 成 一 个 双重 循 
Ж. 它 的 运行 结果 是 打印 出 从 1X1=1 到 9X9=81 的 整个 “ 九 九 表 ”。 

程序 的 流程 图 见 图 5. 14。N - S 图 见 图 5. 15。 

这 个 双重 循环 的 执行 过 程 是 这 样 的 : 

(1) 把 初 值 赋予 循环 变量 A， 即 1=>A (这 个 循环 变量 A 的 信 一 直 保 持 到 遇 到 外 循环 的 
NEXT A 语句 才 变化 )。 然 后 开始 执行 外 循环 的 循环 体 , 即 外 循环 中 FOR 语句 和 NEXT 语句 之 
间 的 各 语句 〈20 语句 到 50 语句 ), 而 20 语句 到 50 语句 又 是 一 个 内 循环 , 在 和 A 一 1 时 .B 从 1 
变化 到 9，30 和 40 语句 被 执行 9 次 ,打印 出 1X1 一 1 到 1X9=9。 
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(2) 当 肉 猫 环 执行 完 后 (B>>9), 程序 执行 60 语句 ,A 增值 . 
由 1 变 成 2, 由 于 A<<9, 程序 又 重新 执行 20 语句 到 50 语句 (但 
上 比 时 循环 变量 A 的 值 已 改变 为 2 了 ) 。 计 算 机 打印 出 2X1=2 
到 2Xx9= 一 18， 

53? 60 庄 句 再 使 A 增值 , A=3, 再 执行 20 语句 到 50 语句 。 
如 此 反复 ,A 值 自 1 依次 变 到 9, 最 后 一 次 打印 出 8X1=9 到 9 
X9 一 81。 外 循环 完 ， 结 束 。 

空当 注意 的 是 ， 当 每 次 外 循环 变量 A 的 值 改 变 时 ， 内 循环 
变量 B 必须 重新 取 初 值 ， 从 流程 图 上 可 以 清楚 地 看 出 这 一 点 。 

在 一 个 循环 中 又 包含 另 一 个 或 多 个 循环 , 叫做 循环 媒 亦 ,上 
面 的 例子 是 两 个 循环 的 嵌 赛 ,图 5. 13 中 虚线 框 是 内 循环 , EX 
АЈАЗ, 

【 例 5.24] 统计 五 个 班 的 每 班 平 均 忒 线 ， 并 分 别 打印 出 
来 , 每 个 斑 的 学 生 为 16 人， 显然 这 是 一 个 只 能 用 双 层 循环 才能 


处 得 的 问题 。 程 序 是 很 简单 的 。 
10 [FOR I=:TO5 


20 5=0 

30 "FOR N=1 TO 10 

40 READ G 

50 ‚5=5+0 

B0 -МЕХТ N 

70 A=S/19 

80 PRINT” class”, I,” average="; А 
30 МЕХТ 1 


100 DATA 65, 78, 96, 100. 57, 85, 77, 89, 98. 60 
110 DATA 78, 65, 61, 54, 30, 99. 100, 75, 58. 61 
120 РАТА 100, 90, 81, 72, 63, 74, 88, 89, 51, 80 


130 DATA 92, 91, 80, 71, 88, 75. 59, 61, 85, 73 Й 5.14 

140 РАТА 53. 50, 62, 70, 89, 77, 44, 81, 82, 99 

150 END 

RUN 

rlass 1 average 一 80.5 

lass 2 average= 68.1 

тїшє 3 averuge— 78.8 

dss амаас TT.5 
clas 5 average= Ti. 8 

ERRET А ROR 循环 与 FOR MAIRE, aA 图 5 15 


是 FOR 循环 与 WHILE 循环 (或 用 IF- СОТО 语句 构成 的 特 环 ) 赂 
套 。 d 

【 例 5.25] 求 出 3 一 100 之 间 的 全 部 素数 

在 例 5. 8 和 例 5. 17 中 已 解决 了 如 何 判 浙 - -个 北 是 否 素数 的 辣 题 。 现 在 只 需 在 原 夺 程序 
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之 外 加 一 层 外 循环 , 使 M З 变 到 100 即 可 。 
程序 如 下 : 


10 FOR M=3 TO 100 STEP 2 
20 N=1NT (SQR(M)) 


30 FOR I=2 TON 

40 IF M/I=INT (M/D THEN 1=2 + N 
50 NEXT I 

60 IF 1<2 x» N THEN PRINT M; 

70 NEXT M 

80 END 

RUN 


5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 

83 89 97 

由 于 偶数 显然 不 可 能 是 素数 ， 因 此 10 语句 中 用 “STEP 2”, 使 M RES. MERER 
打印 出 素数 ， 对 非 素 数 不 打 印 任何 信息 。 

关于 多 重 循环 的 一 些 规 定 : 

O REATO REESE RRN, DURERE 
超过 八 层 ,超过 时 按 出 错 处 理 ， 而 有 的 并 不 限制 。 因 此 ， 使 用 时 ) 7 
坡 好 查阅 你 所 用 计算 机 的 BASIC 使 用 手册 。 实 际 上 ， 一 般 程序 中 ШЕ С, 
АЛО, Eik. ВЕНЕ, 


(2) ERREP, НЕГЕ, M: [= г? 
FOR 2 
FOR x FOR x 
{+ 5 
НЕН Y FOR Y C = 
NExT а 已 — 
NEXT Y NEXT x E) 

x NEXT Y 不 允许 к 

B 5.16 

Ей 错误 


(3) 企 循环 中 可 以 用 转向 语句 合流 程 从 循环 体内 转 到 循环 体外 ， 但 不 允许 从 循环 体外 转 
入 循环 体内 。 如 果 是 多 重 循环 ， 则 允许 从 内 循环 转 到 外 循环 体 ， 不 允许 从 外 循环 转 入 内 循环 
体 。 见 图 5. 16。 
下 面 程序 是 合法 的 ， 
10 ЕОЁ1=1ТО5 
20 181—3 GOTO 50 
30 PRINTI 
40 NEXTI 
50 ЕМО 
但 它 不 符合 结构 化 原则 ， 因 为 对 这 个 循环 来 说 ， 有 一 个 人 人口， 两 个 出 口 。 建 议 尽 可 能 不 
要 从 循环 体 中 转 出 去 。 
下 面 程序 是 不 合法 的 ， 
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10 GOTO 30 

20 FOR I=ITO5 

30 PRINTI 

40 NEXT I 

50 END 

铂 琵 结构 和 选择 结构 是 十 分 碍 胃 而 重要 的 ， 包 乎 所 有 的 实用 移 序 夭 包 含 这 两 种 半 构 ， 因 
此 我 们 硅 本 章 中 介绍 了 比较 多 的 例子 ， 希 曹 大 家 能 深入 掌握 。 在 本 书 第 十 三 章 “ 常 用 算法 程 
序 举 鲍 ”中 还 介绍 了 一 些 较 深入 的 算法 ， 读 者 在 学 习 本 章 时 可 以 从 中 选择 一 些 例题 阅读 ， 


习 я 
HJ 1F - GOTO 语句 和 WHILE 语句 编写 程序 ， 处 理 5. 1~5.6 题 。 


5.1 жа, А 
5.2 Ж Уа 


ыз Ш а о + ОМИЙ я R. < 10-* 时 不 再 累加 。 

5.4 ЖЕ Р" ШЕЛ, 用 INPUT 语句 从 键盘 输入 若干 个 数据 (数据 个 数 和 数 
BEKT. RIE: EHTE. BHAA., GH “AIRE 

(1》 数 据 为 , 8, 16.5, —13, 7Ł5, 43.7 

(2) 数据 为 : —2, 42.1, 46.2,—18.6, 55, 72, 11 


55 用 近代 公式 求 自然 对 数 的 底 。 的 但 。e Кү а Д 


直到 二 一 10-* 为 上 。 
5.6 一 个 工厂 的 产值 以 每 年 10% 增 长 ， 问 多 今年 后 产 算 可 以 翻 一 番 。 
5.7 写 出 下 面 各 程 京 运行 时 打印 的 结果 。 
(1)10 FOR 1—15 ТО 25STEP 3 
20 PRINT], 
30 NEXTI 
40 END 
(2) 10 FOR Х= —10 ТО —100 STEP 一 20 
20 PRINT X, 
30 NEXT X 
40 END 
(3) 10 А=3 
20 В=6 
30 FOR Ү=В-А ТО A+B STEP B/A 
40 PRINT A, В 
56 NEXI Y 
60 END 
(4) 16 Т=5 
20 FOR N—3 YO T STEP 2.5 
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30 PRINT T= T 
3D NEXT N 
50 END 
58 ЕТЕ ТР, залет ЕТ ЕН 
10 LETN=1 
20 FOR K=1TON 
30 PRINT wm 1 
40 NEXTK 
5б PRINT 
60 LETN=N+1 
т PN<=8G0=o 20 


99 END 
+ ` ЖЕКА к 
жад 3083544354 ж} 
жүл Жак жук 
ЖЕЛАЛ КЖ 宁 半 事由 装束 家 家 xk 
ЖЖЖЖ БДЫ: LESES 
КҮТ МА EEES EE 
ЖЕКЕ ККЖ КЕЯ тЫ TETERE] 
*1AFR17133533 551531 4: LEERSE EE] 
m @) m 


59 订 算 Y 一 ++ t z + 4 э 

设 z = 2. ЖЫШ МИИН Р 1, 2, 3. 4, 5, 6, 7, 8, 9, 10 时 了 的 值 。 

510 有 任意 十 个 数 ， 请 把 它们 之 中 最 大 的 邢 最 小 的 数 打 印 出 来 《十 个 数 由 自己 设 定 ) 

5. 11 一 个 数列 ， 它 的 头 三 个 数 是 0，0，1, 第 四 个 数 是 前 三 个 数 之 和 ， 以 后 每 个 数 都 分 
别 是 其 前 三 个 数 之 和 。 请 编 出 此 得 序 、 打 印 出 此 数列 ， 直 到 第 60 个 数 或 数 的 值 达 到 (或 超 
过 》 109 SIE, 

512 Ж, Sq3RBLATURIORS 3⁄4, 2 5X, 2%, 1. 5%, 1⁄2, O. БИН. J. 1982 
年 算 起 多 少年 就 会 达到 或 超过 12 亿 . 1982 年 全 为 10.317, 要求 用 DATA 语句 放 以 上 的 名 
个 增长 率 。 在 读 完 数据 后 ， 用 “终止 标 忘 ”处 理 。( 用 双 层 循环 )。 

5.13 统计 五 个 班 的 每 班 平均 成 线 ， 并 分 别 打印 出 来 ， 设 每 个 班 学 生 估 数 不 相等 ， 但 肯 
不 超 10 Л, Ж. 


100 ЕА 


5.14 ж Уз УУ) 1 


к 


ута 


5.15 有 一 зни, 与 水 平 桌面 成 a 角 , REMATE t= ОРА НИКОТ е 4 开始 
НЧЕ AAR OÆ 5.17). ШЕВЕЛИ), 斜面 的 长 度 з =300em, a— 65%, K :一 
0.1. 0.2, 0.3. eri. OPITE EEE. 
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5.16 给 ma 两 个 整数 ， 求 它们 的 最 人 公约 数 和 最 小 公信 

5.17 给 一 个 正 整 数 ， 求 出 它 的 内 数 ， 并 按 下 而 式样 打印 出 来 。 例如: 15=3+5, 20= 
2*@+5, 56=2* 2 2x7 

5.18 ЭТЕР ОЛАР, MAKERE- DER, АСЗ rin ЕР 
该 数 。 例 如 ，153 是 一 水 全 花 数 、 朵 为 153 一 1 十 于 一 3 。 

5. 19 ”一 个 数 如 果 愉 好 等 于 它 的 因子 之 和 ， 这 个 数 就 称 为 “ 完 数 ”. 例如 ，6 的 因子 为 1， 
2, 3, 65-14-2463, 所 以 6 是 一 个 完 数 ， 综 程序 找 出 1006 之 内 的 所 有 写 数 ， 并 打印 出 它们 的 
ИТ. Ж: 

6 ITS FACTORS ARE1 2 3 

5. 20 ”解数 学 灯 迷 。 存 以 下 算式 : 


ABCD A 


А,В,С,» ВЧЕНЕ, ERIRE 4,8,C,D 各 值 


5.21 有 一 分 数 序列 ， 2 
2 3 5 812. в 
1° 2 3 5° 8° 13° 517 
求 出 这 个 数列 前 20 项 之 和 。 


第 六 章 数 组 


$6.1 数组 和 数组 元 素 的 概念 


至 今 为 目 ， 我 们 讲 过 的 变量 都 属于 简单 的 变量 , 如 А,В,С 等 。 可 以 给 一 个 简单 变量 赋 子 
一 个 数值 。 但 是 常常 遇 到 这 样 的 情况 ， 对 一 个 物理 对 象 ， 要 进行 多 次 测 其 。 如 在 物理 试验 中 
测 电 流 1， 其 测 次， 然后 将 每 次 测 出 来 的 值 相 加 ， 再 将 其 和 除 以 * ， 可 得 到 电流 的 平均 值 。 
如 果 用 4 个 简单 变量 来 代表 4 次 测 出 的 值 , 这 样 是 不 太 方便 的 。 实际 上 我 们 每 一 次 测 的 都 是 电 
流 ， 仅 仅 是 每 一 次 测 出 的 数值 不 同 而 已 。 我 们 可 以 把 这 几 个 同一 类 型 的 变量 ， 用 同一 个 名 字 
RRE, MAA h, r een 来 代表 次 测 出 的 电流 。 这 个 1 就 是 代表 一 组 电流 值 的 “ 数 
组 ”， 右 下 角 的 数字 1, 2, без n 称 1 的 下 标 。1, ARP n 次 测 出 的 电流 值 。 

用 一 个 统一 的 名 字 来 代表 具有 相同 属性 的 一 组 数 ， 这 就 是 数组 名 字 的 来 由 。 数 组 中 各 个 
数 称 为 数组 元 素 。 为 了 确定 各 数据 与 数组 中 每 一 元 素 的 一 一 对 应 关系 ， 必 须 给 数组 中 这 些 数 
编号 , 即 顺序 号 。 用 下 标 来 指出 顺序 号 。 例 如 ,1 数组 中 第 五 个 元 素 就 代表 第 五 次 测 出 的 电流 
值 。 因 此 ， 可 以 说 ， 数 组 是 一 批 有 序数 据 的 集合 ， 或 者 说 ， 数 组 是 用 一 个 名 字 代表 顺序 排 列 
的 一 组 数 〈 简 单 变量 是 没有 序 的 ， 无 所 谓 谁 先 谁 后 ， 而 数组 中 的 元 素 是 有 排列 顺序 的 ) 。 顺 序 
号 就 是 下 标的 值 。 

ЖЕ BASIC 中 ， 要 引用 数组 中 某 一 元 素 ， 应 指出 数组 各 和 用 括 弧 括 起 来 的 下 标 ， 例 如 ， 

I (7) 《相当 于 数学 中 的 DT， 其 中 I 为 数组 名 ，? 为 下 标 值 ) 

I (7) 代表 1 数组 中 顺序 号 为 7 的 那个 元 素 。 数 组 元 束 (例如 I (1)，L (5) ……) 又 称 
“ 带 下 标的 变量 "， 简 称 “ 王 标 变量 ”。 

又 如 , 全 班 有 30 个 学 生 , 在 BASIC 中 30 个 学 生 的 成 绩 可 以 用 S (1), S (2) …… S30) 来 
表示 。 

总 结 起 来 ， 我 们 已 学 过 两 种 变量 ， 即 简单 变量 (如 入 ，Xi，X5》 和 下 标 变 量 (如 1 (1)， 
S (30))。 

在 BASIC 中 有 关 数 组 和 下 标 ， 要 作 以 下 几 点 说 明 ' 

(一 ) 数组 名 的 规则 ,与 简单 变量 的 名 字 规 则 相同 ， 即 由 若干 个 字母 和 数字 组 成 ， 并 及 第 
一 个 为 字母 ， 如 ABC, AMOUNT, AGE, COURSE 都 可 以 作为 合法 的 数组 名 。 

(= 不 标 必 须 用 括 弧 括 起 来 , 如 I7),S(30) 为 合法 ,而 MY ,130 这 二 种 写法 不 是 数组 元 素 
名 ,而 是 简单 变量 名 。 

(Z) 下 标 可 以 是 常数 、 变 量 或 表达 式 。 如 A(8),A(ID),A(LH3) 为 合法 ,其 中 工 应 事先 被 赋 
值 。 如 果 工 的 值 为 3, 则 ADER A(3),A(I+3) 表 示 A(6) 。 

下 标 又 可 以 是 下 标 变 量 ,如 ACAC(3)) ,如果 A(3? 的 值 为 5, 则 A(A(3)) 就 是 A(5) 。 
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{四 ) 下 标 值 应 大 于 或 等 于 零 ， 不 能 为 负 值 . 如 ^ 000, А (100) JAH, MA CD. 
A 《一 100) 为 非法 。 


如 果 下 未 的 值 不 是 整数 ， 如 A 13. 2), ШАН BOE A (3). 

(五 ) 在 计算 机 中 , 一 个 数组 占据 内 存 中 一 片 连续 的 存储 单元 。 各 数组 元 素 在 由 车 中 是 顺 
序 存储 的。 例如 ，1 (1? 在 最 前 而 ，; (2) 紧 接 之 、 然 后 是 I (3)，1 (4) oss 等 。 如 下 表 所 
Ж 

dy 12) Ке] ка). HEN I 106) и? 1 | 9 КЫ » 

0_ 0. 99 | 0.98 1,0C 1.05 1.00 0.97 1.00 | +02 0. 99 

所 以 说 . RIEA REA T HAENRAETS TA. MARR A G BE HH. 


可 尺 很 方便 地 处 理 一 批 数据 . ЭП. 

10 FOR 1= 1 ТО 100 

20 INPUT A (D 

30 NEXT I 

可 以 用 它 连 续 输入 100 个 数据 , 存放 在 A (1) El a (100) 中 。 如 果 不 用 数组 而 用 菏 单 变 
直 来 编程 序 ， 显然 是 很 麻烦 的 。 


56.2 一 维 数 组 


如 果 一 们 数组， 它 的 元 素 只 有 -个 下 标 ， 那 么 这 个 数组 称 为 一 维 救 组 ， 或 者 说 用 -- 个 数 
特 名 和 一 个 下 标 就 能 唯一 地 慰 识 一 个 数组 元 素 . 例如 , 5 是 学 生成 绩 数 组 ,S (1), 5 (2), u... 
S 《30) 代表 第 1，2. …30 个 堂 生 的 成 线 。 用 一 个 下 标 就 确定 了 数组 元 素 在 数组 中 前 位 置 . S 
是 … 维 数组 .一 维 数组 中 各 元 吉 又 称 “ 单 下 标 变量 ”， 

请 看 下 面 简 单 的 例子 : 

[@] в. 1] 

10 FORI=1TO3j3 

20 А (1) =l 

30 PRINT А (D, 

40 NEXTI 

50 END 

在 第 一 次 循环 中 ,1=1, 在 执行 20 语句 时 ， 将 1 赋 给 A (1)， 然 后 打印 出 A (1) ВИЙ І, 
第 二 次 循环 中 , I=2, Жо A 人 2)， 打 印 A (2) 的 值 2, 第 三 次 循环 中 , I 一 3， 将 3 赋 给 
А (3), ЕТА (D 的 值 S。 这 个 程序 运行 后 打印 绪 果 为 ， 

RUN 

1 2 3 
ЖЕЕ ЛИН тА, WER. ЗЕН ВО ИНТО ЕЕ 


起 的 各 。 如 下 面 二 个 程序 段 作用 完全 相同 。 
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(а) 10 FOR 1 一 1TO 10 (h) 10 FOR J=iTO10 
20 S (D =; 20 $ (P =J 
30 NEXT 1 30 NEXT 了 


二 者 作 用 都 是 把 1, 2, en o 这 十 个 数 赋 给 数组 元 素 $S (1) 到 S CO., 如果 左 二 商 (а) Н 
序 自 后面 加 以 下 语句 : 
40 FORJ=1 TO 0 
50 PRINTS (J). 
60 NEXT; 
执行 10 一 60 语句 对 将 打印 出 1， 2. ……10 十 个 数 。 
【 例 6.2} 输入 10 个 学 生 的 成 绩 ， 打印 出 其 平均 值 ， 


10 SUM=:0 
20 FOR1=i TO 10 
30 INPUTS (D TWA 10 个 秆 赋 给 S 数 组 的 十 个 元 素 。 
4 SLM=SUM—S ИН 
50 NEXT1 
60 AVER=SUM/:Q N 
70 PRINT “Arerage—"; aver! 计算 并 打印 平均 什 
80 ЕМО 


[ 例 8.3】 一 质点 作 自由 落体 运动 ， 每 次 测 其 落地 的 时 间 t， 然 后 求 此 寺 点 的 离 地 高 度 
s. З n K ( 设 1<10)。 

s= lg e= 9.80 

10 G=9.8 


20 INPUT ” N=”; N ОВЛ МУ 


30 FORI=1TON 
40 PRINT” T È *R; 9 =” 
< w) акаа 


50 INPUTTU) 
60 МЕХТІ J 
70 FOR )=] TON 
8 — SUM=SUM+T()|, 
90 МЕХТІ НЕНА 
100 TI=SUMAN 
10 S=G=*TI*T1/2 
120 PRINT ”CALCULATED DISTANCE= ”; $ (110 #1120 语句 为 计算 和 打印 卫 离 
180 END 
ESE TE ES: . 
RUN 
N=? 5 
T (1) 一? 8.95 
T (2) =? 8.9, 
T (8) =? 9.01 
T (A) =? 8.99 
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T (8) =? 9.11 
CALCULATED DISTANCE= 396. 1947 


为 了 使 读者 清楚 地 了 解 每 一 步 的 作用 ， 在 程序 中 设 了 两 个 循环 ， 第 一 个 人 循环 的 作用 是 输 
入 a 个 时 间 t 的 值 , 第 三 个 循环 的 作用 是 把 它们 的 值 加 起 来 。 当 然 程序 可 以 简化 , 将 两 个 循环 


合并 成 -个 循环 。 即 将 30 到 90 语句 写成 : 


30 FOR I=1 TOn 


40 PRINT“ ("; i” =”; 
50 INPUT t (i) 
60 SUM=SUM+t (1) 
90 NEXT 1 
(@J6.41 


口 为 基数 〈10 亿 3 千 万 人 )。 全 国土 地 面积 为 960 万 平方 公里 。 


20 Pl=1.03E+9 
30 READ YY(1),Y(2),Y(3) 
40 PRINT “RATE”,“2000"”,22050",“AFTER 1000 YEARS” 
45 PRINT 
50 FOR R 一 0. 03 ТО 0. 005 STEP — 0. 005 
60 FOR (=! TO 3 
70 P(D=P1* (I+R)AYOD 
75 A(D=—P(D/960E+10 
80 NEXTi 
90 PRINTR, Р (1), Р (2), P (3) 
100 PRINT“ ”, А (0). A (2), А (3) 
110 NEXT R 
140 DATA 18, 68, 1000 
200 END 
RUN 
RATE 2000 2050 
0.03 1.7535E 十 09 7. 6872E 十 09 
1，82656E 一 04 8. 0075Е—04 
0. 025 1. 60644Е+09 5.52153E+09 
1. 67337E— 04 0. 75159E—04 
0. 02 1.47109E+06 3. 95957E+09 
1. 53238E — 04 2. 95294E—04 
0.015 1. 34656E+ 09 2. 83483E 十 09 
1. 40266E 一 04 2. 95294Е—04 
0.01 1. 23203E 十 09 2. 02623E 十 09 
1. 28336Е— 04 2. 11065Е—04 
5E 一 03 1.12674E+09 1. 44587E 二 09 
1.17368Е— 04 1. 50611Е—- 04 


АРТЕК 1000YEARS 
7. 08046821 
7.37547E+08 
5, 45384E+19 
5.68108E+06 
4.10212E+17 
42730. 4 
3.01216E+15 
313. 766 

2. 15879E 十 13 
2. 24873 
1.50972Е+11 
0. 015726 


(Au 
CERE) 
(AH) 
(HED 
Ап› 
《密度 7 
(ADO) 
(密度 
《人 大口? 
《密度 》 
(AH) 
(密度 ) 


设 我 国 每 年 人 口 增长 率 分 别 为 3%，2.5%， 2%, 1.5%, 1.0%, 0.5%, 请 
计算 在 公元 2000 年 .2050 年 和 1000 年 后 我 国人 口 总 数 以 及 每 平方 米 人 口 密度 .以 1982 年 人 
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ЖЖЖИ 2600. 2059 宇和 1000 ERAD, ЭДЕ Z A Y. P fl A, 
Y 数组 中 存放 从 32 ERRER, PRP ТЕЙ Е Р ГИ Л. A 数组 存放 相应 年 份 的 
人 口 密度 (ДК), 

PI 为 82 年 人 人口 1C 亿 3 和 十 万 )。 ЖҮ G) =18 (QN 2000--1982-—18), Y (2) —68. Y 
(3) =1000, НЕ ЕТЕ. ЯА И Б R. 第 一 次 只 循环 计算 R = 0. 03 时 的 情况 , 最 
БАА R — 0. 005 00, ИНЕС C о 计算 在 2000 E, 2050 я 1000 年 后 
HATAW. ERITH- IJ 1= 1. ТОЈ F. 

Т0 РЈ =Рр. ж (1+) ЛҮ 

й R=0. 03. Ү‹1)=18, ЖЎШ РС) = 4.75353E+09. 751%] ОН Р: 

75 AG(1)=P(1)/960E+10 

HH 960 FPA Te =960x 0338, R 2006 年 时 每 平方 米 上 上 作 口 为 PO)/960E 十 
ТО ЎН ACHD = 1. 82656E 一 04， 在 执行 完整 个 的 循环 :三 次) 朱 . 打 印 出 R=0.03 时 的 各 种 
所 需 数据 。90 H PJRYFD K 1.100 语句 打印 人 人 口 密度 。 然 后 再 进 行 R 一 0.025 对 的 计算 ， 

从 运行 结果 可 知 : 当 R 一 和 .03 时 ,公元 2000 В, А ОЕ 17 亿 ,1000 EEA DAJE T. 
如 X103, 即 了 万 亿 亿 人 。 那 时 每 亚 方 米 上 将 居住 ?. 37X10" Л, 即 7 亿 人 者 位 在 一 平方 米 上 。 
即使 全 中 国 (包括 沙漠 却 高 山 ) 都 瘟 了 摩天 大 楼 也 住 不 下 这 么 多 人 阿 ! 而 现在 我 国 每 平 万 米 
上 只 有 万 分 之 一 人 。 多 么 惊人 的 对 比 ! 我 位 可 不 能 合 我 们 的 子孙 将 来 在 中 国 无 立 能 之 地 喘 ! 


$6.3 二 维 数 组 


-- 维 数 绎 有 时 不 能 满足 要 求 ， 物 如 ， 闭 统计 一 个 班 的 成 绩 ， 有 三 个 学 生 ， 五 门 误 程 ， 可 
以 用 一 个 二 维 数组 s 表示 : 
78 67 75 87 717 
5—|5 71 88 91 50 
99 7% 81 (89: 98, 
Ети PEB RPR, ЖОЕ ГНЯВ ЕЙ. ЖОШ ДОКЕ = SE ЕШР] 
RARA SEN: 


S (8, 4) 
/ м 
学 生 号 REY 


它 代 才 第 三 行 第 四 列 的 数据 ， 就 是 “89"。 吉 以 看 到 为 了 去 示 某 一 瞳 生 菜 一 门 课 成 绩 ， 必 有 起 用 
两 个 下 诛 , 现在 我 们 用 第 一 个 下 标 代 圾 学生 号 , 月 第 二 个 下 标 代 表 课 各 号 。 让 二 维 数 组 中 , 第 
一 个 下 标 称 为 “ 行 下 栋 ” 第 二 个 下 样 称 为 “ 列 下 标 "， 在 . 维 数 组 中 ,必须 月 丙 个 下 标 方 能 叭 
一 地 确定 一 个 数组 苑 嫩 在 数组 中 的 位 属 。 二 维 数组 的 元 索 叉 称 “ 双 下 标 变 批 "。 

[Ae] 。 计算 全 班 学 生 的 每 门 课 的 总 平均 成 绩 。 今 设 全 班 有 六 个 学 生 , 每 个 学 生 考 s 
门 课 , 以 S 数 组 放 这 些 数 据 。 以 第 一 个 下 标 表示 学 生 号 , 第 一 个 下 标 表 示 课 保 导 。S (1, D 家 
示 第 [个 学 生 的 第 芽 门 课 的 成 线 。 平 均 成 绩 取 小 数 点 后 -位 ， 第 二 位 四 会 五 入 。 

ЕТ: 
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t0 FOR I=1TO65 | 

20 FOR J=1 TO 5 

30 READS (i, Dj 读 入 六 个 学 生成 线 
40 NEXT J 


50 NEXT I 
60 PRINT “COURSE”,“AVERAGE”( 打 印 表 头 ) 


70 РОК I=1TO5 

8 т—0 

90 FOR 1=1 TO 6 

100 T=T+S G, зелева замини 
10 NEXTI 

120 A=INT (Т/6 +1040, 5) /10 GR--[1R32 А) 
130 PRINT f, А 

140 NEXT I 

150 DATA 86.5 87,91.95,68. 5 

155 DATA 83,77,38,90,67 

160 DATA 80 90 91 88,85 

165 РАТА 99,100,90 85 97 

170 РАТА 88,85,79,96,86 

180 DATA 85,88,54,86,83 


200 END 

RUN 

COURSE AVERAGE 
1 86. 9 
2 87. 8 
3 73. 8 
4 90 
5 81.1 


请 考虑 ， 如 果 沉 要 统计 每 个 学 生 五 门 课 的 平均 成 绩 ， 程序 应 如 何 修改 ? 10—50 语句 需 不 
需要 修改 ? 
[в] 解 二 元 一 次 联 立 方程 组 
| 4 一 3 一 6 
=—5 l—2Xx,+ 4X, 
其 一 般 形式 为 ， 
[auX + a X; = O, 
хах, + aX, = Со 


x= ©1022 一 Gite — 210 — анс 
Х, = 2008 аша. = L 

41022 一 1201 пао — Фа 
程序 为 ， 
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10 FOR 1—1 TO 2 
20 FOR T=1 TO 2 


30 РЕМТ “A ("I %,"; 1; © ="; АЯК 

40 INPUTA (1, J) 

50 NEXT J 

60 МЕХТІ 

80 INPUT “C (1), C (2) =", C (D), C (2) 《输入 常数 Cl，c2) 


90 D=A G, 1) ЖА (2. 2) —A (1. 2) *A (2, D 
100 XI=C (1) +A (2, 2) 一 C (2) +A (1, 2) 

110 X1=X1/D 

120 X2=C (2) *A (1, D —C (D +A (2, D 

130 X2=X2/D 

140 PRINT “X]=", ХІ, “X2=", X2 

150 END 

程序 运行 情况 如 下 : 

RUN 

Аа, =?” 

A (1, 2) =? —3⁄ | 

A (2, i) =? —2⁄ 方程 的 系数 和 常数 由 键盘 输入 
A 

М 


(02, D =? 4 

0), € (2) =? 6, —5⁄ 
Xl=091 _ 
Q a a| tiki 


86.4 数组 说 明 语 句 (ОМ 1F6)) 


在 使 用 数组 时 ， 需 要 考 虐 两 个 问题 : (1》 数组 是 几 维 的 ? 一 维 ? 一 维 ? 或 三 维 ? (2) 得 
一 维 有 多 少 元 素 。 

应 当 将 以 上 两 个 信息 告诉 计算 机 ， 以 便 开 尽 足 够 的 内 存单 元 来 存 贮 数据 。 在 BASIC 中 用 
DM 语句 来 完成 这 -工作 (DIM 是 DIMension 的 缩写 )， 这 叫做 “定义 ”( 或 “说 明 ”) 一 个 数 
组 。 如 果 写 ， 

5DIM A (100), B (20, 30) 

语句 中 的 A (100) 和 B (20, 30) 称 作 数 组 说 明 符 。 其 作用 是 对 指定 的 数组 A 各 B 作 说 
ВН. 请 注意 , DIM 语句 中 的 A (100) 并 不 是 指 А 数组 中 的 第 100 个 元 素 , 而 是 指 A 数组 的 大 
小 ， 即 指 的 是 : 该 一 维 数组 的 下 标 值 最 大 可 以 用 到 100 (从 A (0) 到 A (100)， 共 101 个 元 
£). B 数 织 的 第 - 维 的 下 标 值 最 大 可 以 用 到 20 (从 0 到 20), 第 维 的 下 标 值 最 大 可 上 用 到 30 
ОА 0 9] 30) 即 定义 的 这 个 二 维 数组 B 共 有 21 行 31 列 ， 有 21X31= 651 个 元 素 。 

如 果 在 一 个 程序 中 用 了 上 上面 的 DIM 语句 定义 了 数组 A 和 B, 则 在 此 程序 中 使 用 数组 元 素 
时 ,下 标 值 不 应 超过 上 述 范围 。 例 如 下 面 的 用 法 是 正确 的 : 

80 T=—(A(55)+A(J0))/(B(18,19) + B(0,30)) 
而 下 面 的 用 法 是 不 正确 的 ， 
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80 T=(A(102)+A(—3)/(B(0,41) * B(25,35) 

因为 这 些 数 组 元 素 的 下 标 值 己 超过 了 定义 数组 时 所 指定 的 下 标 最 大 值 。 

关于 DIM 语句 ， 有 几 点 说 明 ， 

C) 应 该 把 定义 数组 的 数组 说 明 符 和 数组 元 素 这 二 者 区 分 开 来 。 前 者 只 出 现在 DIM 语句 
中 。 请 区 别 下 面 两 个 语句 中 的 A(100) 的 含义 ， 

5 DIM A(100) 


100 Т==А(100) 

5 语句 是 定义 数组 的 大 小 , 说 明 它 包含 101 个 元 素 , 面 100 语句 中 的 A(100) 是 引用 数组 
P 下 标 为 100 的 元 素 A(100) 的 值 。 

《2) 下 标 值 是 从 0 开始 算 的 ， 如 果 有 : 

10 DIM A (50) 

则 入 数组 中 共有 51 元 素 。 如 果 有 ， 

10 DIM B(N, M) 

MJ B 数 组 第 一 维 有 (N 十 1) 个 元 素 ， 第 二 维 有 (M-+1 个 元 素 ， 数 组 元 素 总 数 为 (N+ 
D X (M+1), FEE “А O 开始 ”这 一 点 党 被 忽略 。 如 果 已 定义 一 个 二 维 数组 ， 

10 DIM A (2, 3) 


则 它 代表 以 下 一 个 算 阵 ; 
А (0, 0) А (0, 1) А (0, 2) А (0, 3) 


А (1, 0) А (1,1) А (1, 2) AQ, 3) 
А (2, 0) А 0,1) AG 2) А (2, 3) 
53) 二 维 数组 中 各 元 素 在 内 存 中 排列 顺序 为 : 按 行 存放 , 即 先 放 第 一 行 ,然后 第 二 行 ，…。 
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А(0,0)А(0,1) А(0,2) А(0,3) А(1,0) А(1,1) А(1,2) А(1,3) А(2,0)А(2,1)А(2,2)А (2,3) 


n 


(4) 人 们 往往 不 习惯 使 用 0 下 标 . 而 希望 下 标 值 从 1 开始 ，MS BASIC 允许 程序 设计 者 
根据 需要 选择 下 标的 下 界 为 0 或 1。 使 用 OPTION BASE #6], 
OPTION BASE n 
n 可 以 是 0 或 1 二 者 之 一 ， 如 果 希 望 下 标 下 界 从 1 开始 ， 则 应 在 DIM 语句 之 前 ， 先 写 ， 
10 OPTION BASE | 
20 DIM A(2, 3) 
则 二 维 数组 A 只 包含 6 个 元 素 ， 
[А (1,1) А (1, 2) А (1, 3) 
\А (2, 1) А (2, 2) А (2, >) 
如 果 不 写 OPTION BASE 语句 ， 则 默认 为 OPTION BASE 0， 即 下 标 下 界 为 0。 
(5) 允许 在 DIM 语句 中 用 变 基 来 说 明 各 维 元 素 的 个 数 , 但 应 在 DIM 语句 出 现 前 使 这 上 坚守 
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量具 有 确定 的 传 。 如 : 

10 INPUTN, M 

20 DiM B (N, M> 

这 就 可 以 在 每 次 运行 时 使 М. М 好 有 临时 输入 的 值 以 改变 B 数组 的 大 小 ， 合 程序 适应 不 
БЕ Ей 

D 在 同一 个 DIM Ер чан Н РУП. ERE ЖЖ ВАД. 
ЕА 

10 DIM А(502,8‹10,15),С(10042,10) 

但 不 同 的 数组 不 能 用 同一 个 数组 名 。 如 

20 DIM D(10),D(20,20) 
是 错误 的 。 因 为 再 河 一 个 了 焉 代 表 一 个 一 维 数 组 又 代表 一 个 二 维 数组 是 不 行 的 。 

《7) 如 果 程 序 中 不 写 DIM 语句 , 虽 系统 自动 分 配 该 数组 每 一 维 包 活 11 个 元 素 . 如 果 程 序 
中 用 到 A (5), В (5, D RAER, 而 没有 用 过 DIM EHHH A, B 的 维 数 和 大 人 小。 系统 隐 
REELT UTEE: 

10 DIMA (10), B (10, 10) . 

在 85.2 和 86.3 直 的 例题 中 ， 由 于 折 用 能 数组 元 素 下 标 值 都 没有 超过 10， 因 此 没有 用 
DIM 语句 。 

因此 , 让 果 程 序 中 用 的 数组 每 维 不 超过 11 45638, 可 以 不 必 写 DIM 语句 。 但 为 了 节省 内 
存 和 避免 辣 性 中 不 必要 的 失误 ， 建 议 养 成 绢 据 数组 的 实际 大 小 来 定义 数组 的 忆 惯 。 即 使 每 维 
不 超过 11 个 元 素 ， 也 时 DIM 语句 ， 如 ， 

10 DIM T(3,3),B(8) 

注意 在 定义 数组 时 不 要 不 加 考虑 地 定 得 过 大 。 例 如 只 用 到 ,50 个 元 素 ， 却 定义 ， 

10 DIM A(100) 
虽 是 合法 的 ， 但 不 必要 ， 浪 费 内 存 。 数 组 定 大 了 . 占 内 存 空间 殷 大 ， 例 如 ， 

10 DIM N(:0b,100) 
N 数组 共有 101516 =10201 个 元 素 , 每 个 元 素 在 轨 存 中 占 四 个 字 节 ,N 数组 就 占 了 四 万 个 字 
节 , 约 40K。 而 有 的 微型 机 的 内 存 才 只 有 56 的。 因此 在 定义 数组 时 必须 要 十 分 注意 节约 使 用 内 
存 。 许 多 程序 在 微 弄 机 上 不 能 运行 ， 就 是 由 于 数组 太 大 面 内 存 不 驶 之 坡 。 节 约 内 存 龄 关 甸 在 
于 节约 司 用 数组 。 

(B) MS BASIC 允许 定义 数组 的 维 数 最 大 为 255( 妈 255 В), 每 一 维 最 多 可 以 有 32767 个 
元 素 。( 但 有 些 BASIC 只 人 允 认 使 用 三 维 以 下 的 数组 )、 
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[ 例 4.7】 给 入 若干 个 学 生 的 学 号 和 成 线 ， 要 求 反 印 出 高 于 平均 分 的 学 生 学 号 和 成 


Ж. 
可 以 设计 屿 以 下 算法 ， 

Sh A я 个 学 生 的 学 号 和 成 绩 
S2， 求 平均 成 绩 


100 


53, 将 ”个 成 绩 与 平均 分 比较 ， 打 印 出 高 于 平均 分 的 学 生 学 叶 和 成 绩 。 

由 于 ”个 学 生 的 分 数 需要 保存 ， 以 便 在 S? 卢 又 中 与 平均 分 性 较 ， 因 此 必须 羔 用 教 组 。 
10 INPUT “Enter the number of Мшйетїз;”, N 

20 DIM SCN ,PN1 

30 FOR I—ITON 

40 INPUT SOD, PLD Y 8 À n ap l 2 81 RL 

50 NEXT1 

60 TOTAL—D \ 

10 FOR1l=ITON 
80 TOTAL=TOTAL+PID неты FE 
96 NEXTI 

100 AVER=TOTAL/N ) 

105 PRINT “aver=",AVER 

110 FOR:=1TON 


120 IF P(D AVER THEN PRINT S{D ,P(i; 

130 NEXT I 

140 END 

RUN 

Enter {һе rumber of students; Sy 

2101. 1007 

z 162. 90,7 上 

+ 103, 38, 

5 10478, 7 

+ 105, 88, 

aver= 90. & 

101 100 

103 єй 

程序 中 以 S (D 代表 第 ТЕЕ ЕЕ, Р (1) 代表 第 ] 个 学 生 的 分 数 。 

[ 例 6.8】 输入 10 个 数 ， 要 求 按 由 小 到 大 次 序 打印 出 来 。 

ЖЕТ, 

51. ЖА Y0 49026 ХН 

52. 对 10 个 数 排序 

S3: 答 出 已 排序 的 X 数组 
3] 582 运 要 细 化 、 关 谴 是 如 何 实现 排序 。 排 序 的 方法 很 多 。 我 们 现在 用 “比较 交换 法 ”。 基 本 
思路 如 下 ， 设 有 10 个 数 ， 分 别 为 X《1) …-…X (10)， 值 如 下 所 示 。 

Гете (оу ра [ва ч | 5 

XG) XD хз) х) KÐ ХОБ) XD X(8) XŒ XUD 


先 将 X (1) 与 X (2) ЖИ, EXD <X (1) ШИ X 0) 5 X (2) кй, ЖЕ}, X 
《1) 的 信息 X 《1) 与 X D 之 中 较 小 的 那个 。 再 将 X (1) 与 X《3) 比较 ， 处 理 方法 同上 。 
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然后 X (1) 与 X (4) ~X (10) 各 数 比 较 ， 每 次 都 如 法 泡 制 。 比 完 这 一 轮 后 ，10 个 数 中 最 小 
的 数 已 在 X (1) FT. 在 第 二 轮 中 , 将 X (2) 与 X (3) —Х (10) 比较 ， 处 理 方法 同上 。 比 
完 第 二 轮 后 ，10 个 数 中 第 二 小 的 数 在 X (2) 中 。…… 如 此 共 比 较 9 轮 , 在 第 9 轮 中 , 将 X 
(9) 与 X (10) 比较 。 请 读者 按 上 述 步骤 对 以 上 10 个 数 进行 处 理 ， 看 能 否 达到 目的 。S2 可 细 
化 为 : 

S2: 当 i=1 到 9 时 进行 以 下 操作 ， 

将 XGD 到 X(10) 中 最 小 的 数 放 到 ха) ни 


п 输入 10 个 数 给 x 数 


出 N 一 S 图 . 见 6.1。 


将 x 人 i 到 ХО 中 最 小 
的 数 故 到 xfi) 中 


将 xf 与 xú) 中 的 小 者 5 
Фп. ЖЯ») и 


对 52.1 又 可 以 细 化 为 : 
52.1, 将 X G) 与 X (i 十 1) 到 X (10) 各 元 素 逐 一 比较 ， 每 次 比较 中 ， 将 小 数 =X G), 


大 数 放 到 另 一 元 素 中 , 画 出 S2.1 的 N-S 图 ( 见 图 6.2)。 


52.1.1 又 可 以 细 化 为 图 6. 3。 


图 6.3 816.1 
将 以 上 各 图 合并 为 图 6. 4。 根据 流程 图 编写 出 程序 ， 
10 DMX (10) 
20 FORI=1 TO 10 
30 INPUTX (D 
40 NEXT I 
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50 РОК I=1 TO 9 

60 FOR J=I+1 TO 10 

70 ЕХ (D >X U) THENT=X (D; X (Q) =X (J: XK (D =T 

80 МЕХТЈ 

90 NEXTI 

100 РОВ 1=1 ТО 10 

110 PRINT X (D; 

120 NEXT I 

130 PRINT 

140 END 

在 运行 开始 后 按 以 下 顺序 输入 10 个 数 ， 每 输入 一 个 数 后 ， 按 回 车 ， 数 据 如 二， 

10, 15, —3, 0, 7, 9, —15, 31, 44, 5 

输出 以 下 结果 ; 

—}5—3 0 5 7 9 10 15 31 44 

这 种 排序 方法 容易 理解 ， 但 交换 次 数 多 ,只 要 (了 ) > XQ ,就 要 交换 一 次 数据 ,而 交换 
一 次 数据 要 执行 三 个 赋值 语句 ,费时 多 。 如 果 原 来 的 数据 怡 好 是 由 大 到 小 排列 的 , 则 每 比 一 次 


就 要 交换 一 次 , 共 需 比较 3)n = 45 次 ,交换 45 次 ,执行 45 x 3 = 135 个 赋值 语句 ,可 以 对 此 算 


法 作 改 进 ,在 每 一 轮 比较 中 不 必 每 当 XAD < XG) 就 交换 数据 ,而 在 ХО) 与 X( 十 1) 到 
X(10) 都 比 完 后 ,将 天 (0) 与 XC + 1) — X(10) 中 值 最 小 的 那个 元 素 对 换 即 可 ,在 每 轮 的 各 次 
比较 中 ,将 值 最 小 的 元 素 的 下 标 放 在 变 其 中, 比 完 一 轮 后 ,将 XCD 与 XU) 对 换 即 可 。 这 种 
排序 方法 称 为 “选择 排序 法 ”。 流 程 图 见 图 6. 5, 

10 FOR 1=1 TO 10; 

20 READ X (D влет, Ria x ga 

30 NEXT I 

410 FOR1=1 TO9 


RATM 


45 L—1 
50 FOR J=1+1 TO 10 
60 ТЕ XO)<X(L) THEN L—) 


70 NEXT J 
80 IFL<>ITHEN T=X (D, X (D =X(1): 
X(L)=T 

90 NEXTI 

100 FOR I=1 TO 10 

110  PRINT X (1) 打印 已 排 好 序 的 X 数 组 

120 МЕХТІ 

130 DATA 10,15, —3,0,7,9,—15,31,44,5 

140 ЕМО 

80 语句 的 作用 是 ， 当 比 完 - - 轮 后 若 得 到 的 最 小 值 不 是 X (1) 本 身 时 才 将 X (1) 5X 
а) 交换 。 如 果 最 小 值 就 是 X (1)， 此 时 L=1， 不 进行 交换 。 

本 程 应 用 READ 语句 从 DATA 语句 中 起 和 10 个 数 ， 可 以 看 到 :,“ 饮 择 法 ”与 “比较 交换 
&” 相 比 ,比较 次 数 一 样 , 但 交换 次 数 大 大 减少 了 .。 最 多 交换 9 次 〈 每 比 完 一 轮 交 换 -次 , Bl 
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6.5 


执行 - 次 外 循 直 交换 一 次 ) 。 执行 时 间 大 大 减少 。 
【 例 6. 0] 菜 学 校对 如 何 实 行政 革 拟 出 三 个 方案 ,用 民意 测验 的 办 法 征求 意见 。 


СЕЙ 
5.6 


АЕНА А А. FE. PUT; Z ДИНИЙ. ОА Р 5.6. 
参加 民意 测验 的 和 人 在 一) 和 (二 ) 项 т 
中 的 1，2 或 3 个 数字 上 人 尾 选 定 -个 并 画 征求 意见 表 
-AE R EROR FTAA LE (一 ) ЖАШ —#= Ж 
计算 机 处 理 。 1. FRI 
今 设 一 个 二 维 数组 C, 第 一 维 代表 “ 方 2. FRI 
案 ”. 第 二 维 代表 “部 门 ”。 H c (l, 2) 代 3， 方 案 下 
ЖЕНЕ Ú 的 学 生 的 人 数 ， 如 果 有 С) KAFEA] 
KERET. DLEE, AETA 1. ЖА 
方案 ] 的 是 学 生 。 此 时 应 输入 “1, 2”, 然 2， 学 生 
后 使 C(1,2) 的 值 加 1, 假设 数据 用 DATA з. 职工 
语句 存放 , 1 “一 1, 一 1” 为 终止 过 志 , 流 
程 图 可 以 用 6.7 表示 。 图 6.8 


在 未 “开票 ”时 ,使 C 数组 中 拇 个 元 素 都 为 初 值 0. ЕЛ 


一 对 数据 , 就 使 相应 的 数 纽 元 素 值 加 1, 直到 读 入 “一 1” 为 止 ， 


程序 为 ， 
10 REM VOTE COUNTING 
20 DIM C (3, 3) 
30 FOR K=ITO3 


40 FOR 1.=1 TO 3 
э! C (K, L) 0 С519=05.0.-1 
50 NEXT L B 


80 READS, D 

90 WHILE S<>—1 

100 С (8, D} =C (S, D) +1 
105 READS, D 

110 WEND 


图 6.7 


чта Ж + 


120 PRINT *SCHEMA”, ТАВ 112); “TEACHER”: ТАВ (24); “STUDENT”, TAB (36); “WORKER”; 


ТАВ 148); “TOTAL” 
130, PRINT 


PRINT “SCHEMA 1”; ТАВ (12); С (1, 1); ТАВ (24), С (1, 23; ТАВ (38); С (1, 3): ТАВ 
(485; C 0, D +C (1. 2) +C (1. 3) 
PRINT “SCHEMA 2”; TAB (12); C (2, 1); TAB (24); C (2, 2); TAB (36), C (2, 3}, ТАВ 


PRINT “SCHEMA 3”; TAB (12); C (3, 13; ТАВ (24); C (3, 2): TAB (36); C (3, 3) ТАВ 


150 
(48); С (2, 1) +C (2, 2) +C (2, 3) 
180 
(48); C (3, D +C (3. 2) +C (3. 3) 
170 ФАТА З, 1. 2, 2, 3, 2, 1, 2, 1, 1. 2.1, S, ` 


180 РАТА 2, 2, 1, 1, 1, 3, 3, 1, 3, 2, 2, 2, 1, 2 
190 РАТА 2, 1, 1, 3, 2, 3, 3, 2, 1, 1, 3, 3, 1, 2 
200 DATA 2, 2, 2, 3, 3, 3, 1, 3, 1, 2, 1, 1, 2, 2, –1, —1 


210 ЕМО 

RUN 

SCHEMA TEACHER STUDENT WORKER TOTAL 
FR) (教员 ) CE) ЧАТ) 《总 计 ) 
SCHEMA 1 4 4 3 H 

SCHEMA 2 2 5 2 9 

SCHEMA 3 2 3 3 8 


从 打印 结果 可 以 看 到 每 一 方案 的 总 票数 和 来 自 教 员 、 学 生 、 职 工 的 票数 。 请 考虑 为 什么 
200 语句 中 最 后 要 用 两 个 “一 1” 而 不 是 一 个 “一 1” 作 “终止 标志 ”。 请 仔细 分 析 90 语句 的 作 
用 。 

120 一 160 语句 中 用 了 ТАВ 函数 ，TAB 函数 是 打印 位 置 函 数 ，TAB (X) 的 作用 是 把 当前 
输出 位 置 移 至 本 行 第 X 例 ，( 注 意 X 的 值 在 1 一 225 之 间 )。 例 如 若 A 一 10，B 一 一 20， 则 

10 PRINT TAB (12); A; TAB (20); B 
打印 (或 显示 〉 结果 如 下 ， 

ЭЖ [1234567891011 12 13 14 15 16 17 18 19 20 21 22 

输出 | 


10 — 2 0 
AREAS 10 列 开始 输出 ， 由 于 A 是 无 符号 整数 ， 它 前 面 应 有 一 个 空格 〈 符 号 位 )， 即 将 
“— 1 0” 验 出 在 第 10—12 71, 而 8 是 负数 ， 负 号 占 一 列 ， 因 此 “一 20” 和 输出 在 第 20—22 列 
上 


TAB 是 Tabulate (J) 的 缩写 。 本 例 用 TAB 函数 控制 输出 数据 的 位 置 。 注 意 TAB (х) 
后 面 用 分 号 与 其 后 的 输出 量 相 分 隔 。 
《 例 6. 10〗 打印 相 辉 三 角形 。 
相 辉 三 角形 的 每 一 行 是 《〈x 十 y)" 的 展开 式 的 各 项 的 系数 。 如 第 工行 是 (x 十 y)" 的 系数 ， 
第 2 行 的 “1，2，1” 是 (x 十 y)* RFR x* 十 2xy 十 y? 各 项 的 系数 。 要 求 输 出 结果 如 下 ， 


1 

15 20 15 6 1 

21 3 35 й 7 1 

з 5 70 5 2 B 1 

36 84 126 16 м 36 9 1 


Ф @ — оз m ш ш nN юк 
=“ 


可 以 找 出 以 下 规律 , 对 角 线 和 每 行 的 第 一 列 都 为 1, 其 余 各 项 是 它 的 上 一 行 中 前 一 个 元 素 和 上 
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一 行 的 同一 列 上 的 元 素 之 和 。 例 如 , 第 4 行 第 2 列 的 值 为 3, 它 是 第 三 行 上 第 2 列 和 第 3 列 元 
素 值 之 和 ， 可 用 下 式 表示 : 
AR. j = AG— 1, — 1 + AG — 1,р 

程序 如 下 : 

10 INPUT” N=”; N 

20 DIMA (N, N) 

30 FOR1=1TON 

40 Ad, D =1 

50 AG D =1 

60 NEXTI 

70 FOR I=3 TO N 

80  FORJ=2 TOi) 


90 А (I, J) =A (I—1, J—1) +A 1—1, J) 
100 NEXT J 
110 МЕХТІ 


120 РОК K=] TON 

130 FOR J=1 TO K 

140 PRINT ТАВ (5x J); А (К, D); 

150 NEXT J 

160 PRINT 

170 NEXT K 

180 END 

30—60 语句 是 将 各 行 第 |! 列 和 对 角 线 元 素 置 1， 因 此 第 2 行 (只 有 两 个 元 素 ) 都 已 有 值 
了 。 所 以 只 需 从 第 3 行 开始 计算 各 元 素 的 值 即 可 。 故 70 语句 循环 变量 r 的 值 从 3 开始 变 到 
10。 

120—160 НОН, 请 注意 130 语句 循环 变量 的 终 值 为 下 。 这 样 使 第 ! 行 输 
出 【个 数 ， 第 2 输出 印 2 个 数 ， 第 K 行 输出 人 个 数 。140 语句 的 作用 是 使 每 个 被 输出 的 元 素 
占 SIKRERE. 例如 , г K —3 时 , 输出 第 3 行 数 据 , 内 循环 变量 J 由 1 变 到 3, 内 循环 的 作 
用 基 输 出 区 个 数据 , 第 1 个 数 从 第 5 列 开 始 输出 ,第 2 个 数 从 第 10 列 开始 输出 , 第 3 个 数 从 
第 15 列 开始 输出 。 其 余 行 情况 类 似 。 请 注意 160 语句 的 作用 ; 在 执行 完 内 循环 输出 完 一 行 中 
数据 后 使 之 换行 。 如 无 此 160 诸 句 ， 则 各 行 数据 会 连续 显示 在 一 行 上 。 

除了 可 以 利用 TAB 函数 控制 所 输出 数据 的 位 置 外 . 还 可 以 利用 SPC 函数 (空格 函数 ), E 
的 作用 足 使 输出 位 置 向 有 移动 若干 列 。 例 如 ， 

10 PRINT “A”; SPC (3); “В”; SPC (2); “С” 

A BC 

【 例 6. 111] 有 一 个 ”X 严 的 矩阵 ， 找 出 其 中 信 最 大 的 那个 元 素 的 值 以 及 其 所 在 的 行 号 
ШЕЕ 

HEMT: 

1. ЗА n.m Mn X m Е ФЭЕЖИН; 

2. ЖА О. D WERS МАХ 
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3. Ж MAX 与 各 元 素 值 相 比 , 如 果 有 某 -个 A (1, J) >МАХ, 则 将 此 A O. J) 一 MAX. 
问 时 将 此 时 的 1, J ЛЕТЕ TERA КОМ (1795) 和 СОГОМ (AE), 

4， 最 后 输出 MAX 和 1, J 的 值 。 

算法 见 图 6. 8。 

10 INPUT” N, M=”; N, M 

20 DIMA (N, M) 

30 FOR 1=1 TON 

10 FOR J=1 TOM 


输入 nxm 个 数 给 数组 A 


50 INPUT A (1, J) 
70 NEXTI 


80 MAX=A (1, 1) 
90 РОК [=] TON 
100 FOR J=1TO M 
110 ТЕА (1, J) >MAX THEN 
MAX=A (I, J); ROW=I: COLUM=J 
120 NEXT I 
180 NEXT I 
140 PRINT ” THE LARGEST NUMBFR 15 A (”; 
ROW;”,”; COLUM;”) =”; MAX 
150 END 


如 果 想 处 理 的 矩阵 为 ， 


1 23 4 үң. 
9876 


0187 
在 运行 时 输入 情况 如 下 ， 
N, M=3, 4 
然后 按 以 下 顺序 输入 数据 :1，2，3，4，9， 8, 7, 6, 0, 1, 8, 7 《每 输入 个 数据 按 
Жа), ялан. 
THE LARGEST NUMBER IS А(2,1)= 9 


3 题 


6.1 请 写 出 A 数组 中 各 元 素 的 秆 
(D 10 DIM А (5) 

20 FOR I=1 TO 5 

30 А (D =l*I 

40 А (D =A (1) *1 

50 NEXT I 
(2) 10 DIM A (5, 5 

20 FOR L-1 TO 5 

30 РОВ j=l TO 5 
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40 A G, D =@ 
50 NEXT J 
60 AG D = 
70 NEXT t 
13) 10 DIM A (5, 5) 
20 FOR 1=1 TO 5 
30  IF1=1 OR 1=5 THEN FOR J=] TO 5; A (I, J) 一 0 NEXT J; GOTO 70 
40 БОВ J—1 TO 5. 


50 lIF J=] OR J=5 THEN А (I, J) =0 ELSE A (l, Jy =1 
60 NEXT J 
70 МЕХТІ 


6.2 ЖАО Н, НАЧАВ О ЕЖЗЕНЕИ УЯ о нна. RH 
值 最 小 的 元 家 并 将 其 与 最 后 一 个 元 素 互 换 ， 其 它 元 素 不 动 ， 如 : 

原来 : 8, 7, 9, 15, 0, 3, 一 8, 19, 31,5 

BW: 31, 7, 9, 15. 0, 3, 5, 19, 8, 一 8 

6.3 有 一 个 一 维 数组 X， 含 = 个 元 素 ， 要 求 对 X (1) FX (n) 对 换 ，X (2) 与 X Cr 一 
D 对 换 ，…… Ж: 

原来 : 1, 18, 15, 27, 9, 21, 33 

对 换 后 ; 33, 21, 9, 27, 15, 13, 1 

QES: n 可 以 是 奇数 或 偶数 ) 

6.4 已 有 一 个 已 排 好 序 的 数组 , 今 输 入 一 个 数 , 要求 插 入 到 数组 中 , 插入 后 仍 按 原 规律 
ж. 

6.5 2 Fibonacci 数列 前 50 个 数 ， 把 它们 放 到 数组 中 的 F (1) 到 F (50) 中 , 并 打印 
出 来 。 

6.6 输入 一 个 3x3 的 二 维 数组 和 ,要求 将 其 行 与 列 互 换 , 得 B 数组， 并 输出 数组 和 
B 《各 分 别 按 三 行 给 出 ) 


3 
A= 5 


1 2 
4 5 
7 в 


1 4 7 
B= |2 5 8 
3 6 9 


9 
6.7 有 一 个 Xn 的 二 维 数组 ， 求 它 的 最 靠 外 这 的 行 和 列 各 元 素 的 值 之 和 .。 
6а 有 一 X * 数 组 ， 求 两 条 对 角 线 元 素 之 和 。 
6.9 有 二 个 * 义 如 的 数组 ， 要 求 将 它们 相同 位 置 的 元 素 相 加 〈 矩 阵 加 法 ? 
6.10 将 例 6. 5 改 为 求 每 个 学 生 各 门 课 平均 成 线 ， 取 小 数 点 后 二 位 ， 第 三 位 四 含 五 人 。 
6.11 很 如 有 站 个 商店 ， 它 位 当日 卖 出 的 商品 A、 商 品 B 和 商品 C 的 数量 如 下 表 所 示 。 
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— 
Ё А 商品 B е 
& 出 
商店 各 数 EJ 
第 商店 тє 64 ав 
第 二 商店 125 37 85 
第 三 商店 СА - 194 12 
第 四 商店 208 120 191 
Бет: 
аё _ MEOD 
商品 A 12.5 
商品 B 6,8 
LEXY 1.3 


请 编程 序 ， 分 别 求 出 各 商店 当日 的 总 营业 额 。 
6.12 按 下 面 形式 打印 相 鲜 三 角形 ， 


121 
1331 
14641 


5.13 HAMT ВИГЕН ЕВО. ЕНТ. BAM ARZA 
相等 。 要 求 打印 由 自然 数 1 到 ?构成 的 魔方 阵 《n 为 奇数 )， 例 如 ， 当 n 一 3 时 ， 魔 方 阵 为 ， 
E 1 5 
3 5 7 
4 9 2 
魔方 阵 中 各 数 排列 规律 为 : 
全 将 “1” 放 在 第 【行当 中 -- 列 ， 
多 从 “2” 开 始 直到 x 4 止 各 数 依 次 按 下 列 规 则 放 数 ， 每 一 个 数 存 放 的 行 比 前 一 个 数 的 
行 数 减 1, 列 数 加 1; 
多 如果 上 一 数 的 行 数 为 1， 则 下 一 个 数 的 行 数 为 n (最 下 一 行 )， 如 在 3X 3 方 医 中 ,1 在 
ЖІН, Д2 应 放 在 第 3 行 第 3 列 。 
你 当 上 一 个 数 的 列 数 为 > 时 ,下 一 个 数 的 列 数 应 为 1, 行 数 减 1. 如 2 在 第 3 行 第 3 列 ,3 
应 在 第 2 行 第 1 列 。 
清 编 程序 .输入 # ， 打 印 出 白天 个 数组 式 的 魔方 阵 。 
6.14 找 出 一 个 二 维 数组 中 的 “鞍点 ”, 即 该 位 置 上 的 元 过 在 该 行 上 最 大 , 在 该 列 上 最 小 ， 
(也 可 能 没有 鞍点 )， 汀 印 出 有 关 信 息 。 


109 


第 七 章 “” 函数 与 子 程序 


§ 7.1 BASIC 标准 函数 的 分 类 及 应 用 


在 第 二 章 8 2. 5 中 已 简单 介绍 了 BASIC HRR, BASIC 把 一 些 常用 的 运算 事先 做 成 
子 程 序 ， 在 需要 时 调用 。 函 数 调用 的 形式 为 : 

函数 名 〈 自 变量 
一 般 的 标准 函数 要 求 有 一 个 自 变 最 (如 SIN (х), INT ka))， 有 的 标准 函数 要 求 一 个 白 变 算 
(如 LEFT$ (A$, nD 或 三 个 自 变量 (如 MID$ (A$, n, m), WERT., E3 AARE 
要 用 具体 的 值 作 为 自 变量 ， 可 以 是 常量 、 变 量 、 或 表达 式 。 即 ， 只 能 对 确定 的 值 求 函 数值。 

每 种 BASIC 系统 提供 的 标准 函数 的 种 类 、 个 数 与 功能 不 尺 相 同 。 功 能 强 的 BASIC 提供 十 
富 的 标准 函数 ， 使 用 十 分 方便 ， 使 编写 程度 的 工作 量 减少 ， 程 岸 简明 易 该。 

一 般 BASIC 包含 以 下 几 类 标准 函数 ;: 

(1) 数学 炒 数 。 这 些 阔 数 的 值 是 一 个 数值 (如 三 角 阔 数 、 对 数 函 数 、 绝 对 值 沙 数 、 平 方 
=й, БЕЛА. 

(2) Өр Н БИ ВА, ТЕМ (x $) 的 作用 是 求 字 符 串 x$ BJ e BE. CHR 
$ (п) 的 作用 是 得 到 -个 ASCH 码 为 n 的 字符 。 

(3) 输入 输出 函数 。 例 如 有 TAB 消 数 (输出 位 党 函数 )，SPC 函数 〈 空 格 函 数 )、INKEY 
$$ 痛 数 的 作用 是 从 键盘 读 一 个 字符 。 

(4) 具有 特定 功能 的 专门 函数 。 例 如 FRE 函数 可 以 查 内 存 中 自由 空间 字 节 数 ，VARPTR 
函数 可 以 查 变量 在 内 存 中 地 址 等 。 

我 们 在 前 面 几 章 的 程序 中 运用 标准 蚌 数 来 处 理 问题 ， 例 如 用 INT 函数 处 理 取 a 位 小 数 和 
四 含 五 入 以 及 判断 整除 等 ,用 三 角 画 数 、EXP、SQR，LOG ABS 函数 进行 数值 计算 ,用 TAB 
函数 控制 打印 位 置 等 ,应 当 说 明 ,BASIC 中 一 些 数学 函数 的 值 是 用 近似 计算 公式 求 出 的 ,例如 ， 
РЙ, НЙ (EXP 丽 数 )、 对 数 函 数 (LOG 函数 ) 等 都 是 用 稼 级 数 多 项 式 形式 的 台 劳 
公式 进行 计算 的 。 如 正弦 函数 sm (2) 是 用 下 面 的 台 劳 展 开 式 计算 的 ， 

оз уа үз “а Т 
sz 3i t51 718r тт тя 

因此 ， 某 些 函 数 的 求 值 不 可 避免 地 会 出 现 微小 的 误差 。 

ATEAK, AE -一 介绍 。 读 者 需要 时 可 查 附 录 工 即 可 。 使 用 较 多 的 函数 是 数 
学 函数 和 字符 串 两 数 。 字 符 串 函数 将 在 第 八 帝 中 介绍 。 在 本 节 中 只 准备 介绍 一 种 使 用 较 广 泛 
ERAR -- 随 机 函数 的 应 用 。 随 村 函数 在 计算 机 游戏 和 计算 机 模拟 中 得 到 广泛 的 应 用 。 

随机 哨 数 的 一 般 形式 为 : 
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RND [ (x) ]] 
方 括 弧 内 部 分 是 任 选 的 ， 即 RND，RND (х) 两 种 形式 均 合 法 。 其 作用 是 得 到 一 个 (0, 1) BJ 
的 蝴 坝 数 。 这 个 随机 数 是 由 BASIC 解释 系统 中 一 个 随机 数 生 成 程序 (又 称 “ 随 机 数 生 器 ”> 产 
生 的 。 随机 数 生成 程序 是 根据 一 个 复杂 的 公式 来 计算 出 一 个 随 志 数 序列 (кї, R2, R3, 
т 的 ,每 用 一 次 RND 函数 就 可 得 到 这 个 随机 数 序列 中 的 一 个 随机 数 。 给 这 个 “随机 数 生 
成 程序 ”指定 不 同 的 初 值 《 即 随机 数 序列 的 “ 优 因子”， 或 称 “ 种 子 ”) . 就 可 以 得 到 不 同 的 随 
机 数 序列 。 在 BASIC 中 用 RANDOMIZE 语句 设置 随机 数 “ 种 子 *。 其 一 般 形式 为 
RANDOMIZE [n ] 

是 一 个 整 表达 式 ， 作 为 指定 的 “种 子 "， 如 果 每 次 指定 的 n 值 相同 ， 则 得 到 相同 的 随机 数 序 
列 。 

GQ) 不 用 RANDOMIZE 语句 ， 相 当 于 按 同 一 个 “种 子 ” 进行 计 算 ， 产 生 辐 一 个 随机 数 序 
$l. 

[@J7. 11 

10 FOR 1=1TO4 

20 PRINT RND 

30 NEXT I 

40 END 

RUN 

‚1218501 

‚651851 

8688511 

-7287525 

RUN 

-1213501 

- 651851 

. 8688511 

7297625 
每 次 送行 都 得 到 同一 个 随机 数 序 列 。 

CHE RANDOMIZE 语句 ,在 语句 中 可 以 不 写 4 值 ,执行 此 语句 时 系统 会 询问 的 值 ,可 
以 临时 从 健 盘 输入 。 

I 例 7. 2] 

10 RANDOMIZE 

20 FOR 1—I TO 4 

30 PRINT RND 

40 NEXT] 

50 END 

RUN 

Random number seed ( — 32758 to 32767)? 267 

+ 8162134 

. 4226789 

‚8276842 


111 


„76269628 
RUN 
Random number seed ( — 32758 to 32767)? 3x 
- 2226007 
5941419 
‚2414202 
‚2013798 
RUN 
Random number seed ( —32768 to 82787)7 4,⁄ 
+ 6289B8 
‚165805 
‚ 5551561 
-175797 
RUN 
Random number seeç (— 32768 to 32767)? 27 
+ 8162134 
. 4226789 
‚9276842. 
-6269628 
可 以 看 到 ， 当 蛤 入 的 4 值 相 同时 ， 得 到 相间 的 随机 数 序列 。 
(3) 当 用 “RND tx)” 形 式 时 , х>0 BF, 每 使 用 一 次 КМО C) 可 得 到 随机 数 序 珊 中 下 一 
AAR. H RND” ERE PARO, PASEAR. 


{ 例 7. 33 
(a) (b) 

10 РОВ 1=1Т03 10 PRINT RND (1), 
20 PRINT RND (1), 20 РЕІМТ RND (1), 
30 МЕХТІ 30 PRINT RND (1) 
40 END 40 END 

二 者 运行 结果 相同 : 

. 1213501 ‚651861 ‚8688611 


虽然 每 次 都 用 RND (1)， 但 得 到 的 值 不 同 ， 依 次 从 随机 数 序列 中 找 下 一 个 随机 数 。 

(4) 车 RND GO 中 x 为 零 ， 即 RND (0), 得 到 与 上 一 个 随机 数 相同 的 随机 数 。 

【 例 7. 4] 

19 РОВ 1=1Т0 3 

20 PRINT RND (0). 

3D NEXT 1 

40 END 

RUN 

‚3116351 3116351 3.16351 
得 到 同一 个 随机 数 的 值 。 

(Б) 车 RND (x) 中 z С. 则 重 设 “种 子 ” 百 改变 随机 数 序 列 ， 旦 不 受 RANDOMIZE 语 
名 影响 。 
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【 例 7. 51 
10 RANDOMIZE 5 
20 FOR I=1TO 3 
30 PRINT RND (1). 
40 NEXTI 
45 PRINT 
50 RANDOMIZE 5 
55 X=RND (一 1) 
60 FORI=1TO3 
то PRINT RND (1). 


80 NEXTI 

90 END 

RUN 
3. 537536E— 02 - 9370678 ‚8688921 
‚5545178 + 4523311 А 2- 003121Е – 02 


10 语句 用 RANDOMIZE 指定 了 “种 子 ” ia —5, 20—40 语句 输出 三 个 随机 数 。 Г Г 55 
语句 , 则 60—80 行 打印 结果 应 与 20—40 语句 相同 , 今 由 于 55 语句 调用 RND (一 1), 使 重新 
设置 “种 子 ” 值 ， 因 些 ， 改 变 了 随机 数 序列 ，60~-80 语句 输出 结果 与 20 一 4 ЖЇН]. 
св) RND 函数 得 到 的 值 为 《0，1?》 区 间 前 一 个 数 BFO. 000001~0. 9999999), 但 可 以 由 
此 得 到 任意 范围 具 的 一 个 殖 机 整数 ， 例 如 ， 
INT (RND * 107 
可 以 得 到 一 个 0~9 зр. ру RND 3348 280. 0006001-— 0. 999999022 [я] нї —4]- М, 
ЖЕШ 10, 得 到 0. 000001 —-9. 999999 之 间 的 一 个 小 数 , 再 取 整 , 每 到 一 个 0—9 之 阿 的 一 个 随机 
整数 。 同 理 ， 
INT (RND + 100) 
得 到 一 个 0 一 99 2 (ауа БП. 
如 果 楚 得 到 一 个 0—n 之 了 的 随机 整数 ， 可 町 ， 
INT (RND (n+])) 
如 果 想 得 到 10—99 之 间 的 一 个 酵 机 整数 ， 可 用 : 
INT (RND + 90) +10 
因为 JNT (RND x 90) 可 得 到 一 个 0—89 |а, 再 加 10， 就 得 到 10~ 99 之 间 的 一 个 隧 
У. 
ОБАВЕ са, b] ТАВ Й, ЭГ. 
INT (RND * (b—a+1)) +a ` 
【 例 7. 6] ”我们 编 一 个 “如 法 练 刁 程序 ”. 用 计算 机 给 小 学 生出 10 EAE 
法 题目 ， 尖 小学生 对 某 -- 定 回答 正确 时 ， 计 算 机 告诉 他 “GO9D!”， 并 如 十 分 ， 再 出 第 二 题 。 
如 区 答 错 了 , 计算 机 告诉 他 “YOU AER WRONG1”( 你 销 了 )， 并 接着 出 下 一 题 。 прое 10 Bi 
后 计算 机 告 沂 他 共 得 多 少 分 。 
1) G=0 
20 FOR I=1 TO10 
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35 A=INT (RND (1) *90+10) 
40 B=INT (RND (1) *90+10) 
59 PRINT A; €+”, B, “=”, 


60 — JNPLT C 

70 ТЕ С—А +B THEN PRINT “Срор:", G=G+1¢ ELSE PRINT “YOU ARE WRONG!” 
00 NEXT I 

115 PRINT “YOUR SCORE 15”; G 

120 END 

FRR: ?6+-26=* 8237 

52—18=? 80,7 YOU ARE WRONG t 

соор! 18+75=? 85y” 

15+27—=? 12/7 YOU АВЕ WRONG! 

соор; B7+32—7? 119/7 

23+98=? 12147 соор! 

6000} 43+55=° 108,/ 

39+52=? $x” соор! 

500D; 57+92=° 149,7 

18 十 78 一 ? 96,7 GOOD! 

GOOD! (FREAR) YOUR SCORE 15 80 (KH RRE 804) 


А 和 B 是 二 位 数字 的 独 机 整数 .如 果 输 入 回答 的 5 值 等 于 A 十 B НМЕ. ШС 值 加 10， ү; 
ШЖ. 
【 例 7.7】 发售 有 奖 钳 车 ,每 10 万 为 一 组 , 设 一 等 奖 一 个 ,二 等 奖 三 个 ,三 等 奖 10 个 。 

用 计算 机 开奖 .打印 出 得 萄 者 号 码 。 

10 RANDOMIZE 

20 A=INT (ЕМО (1) * 10000) +1 

30 PRINT “CLASS 1;” 

40 PRINT A 

50 PRINT “CLASS 2;” 

60 FOR 1=1 TO 3 

70 В (D =INT (RND (15 ж 10000) +1 

80 PRINTB (1). 

90 ҚЕХТІ 

100 PRINT : PRINT 

110 PRINT “CLASS 3;" 

120 FOR Г=1 ТО 10 

130 C (D =INT (RND (1) +10000) +1 

140 PRINT C (D, 

150 МЕХТІ 

160 PRINT 

170 END 

RUN 

Random number seed ( — 32768 to 32767)7 5a” 

CLASS |; 

H4 


354 
CLASS 2, 


9371 . 8689 3503 
CLASS 3; 
5134 8901 991 6425 9386 


9587 1115 2013 7245 4643 

每 次 运行 程序 时 可 和 输入 不 同 的 “种 子 "， 以 得 到 不 同 的 随机 数 序列 。 

随机 阔 数 可 用 来 模拟 实际 生活 中 的 随机 事件 ,例如 工厂 若 要 抽查 产品 质量 ,教师 要 从 试 
题库 中 随机 地 抽取 试题 ， 都 可 以 用 计算 机 模拟 方法 来 处 理 。 

【 例 7.8】 Жї, R E, A RSDR, 按 任意 顺序 一 个 一 个 取 , BJ; 按 红 - 黄 - 蓝 - 白 
- 黑 这 样 的 顺序 出 现 的 概率 是 多 少 ? 

我 们 以 整数 1，2，3，4，5 分 别 代表 红 黄 蓝 白 黑 五 种 颜色 。 程 序 可 编写 为 : 

10 INPUT ” Number—”} М 

20 FOR1=1 TOM 

30 CI=INT(RND(1) + 5)+1 

40 C2=INT(RND(1) + 5) 十 1 

50 C3=INT(RND(1) + 5) 十 1 

60 CA=INT(RNDG1) x 5)+1 

70 C5=INT(RND(1) *5) 十 1 

80 IF C1=1 AND C2=2 AND C3 一 3 AND C4 一 4 AND C5=5 THEN N=N+] 

90 МЕХТІ 

100 PRINT N/M 

110 END 

RUN 

Number—1000,/ 

.001 

BASIC 的 函数 很 丰富 ,读者 可 自己 根据 需要 选用 ,例如 可 以 利用 TAB 函数 打印 由 字符 组 
成 的 图 案 〈 见 第 八 章程 序 举 例 ) 。 
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有 时 在 程序 中 需要 多 次 用 到 某 一 公式 ， 或 要 处 理 某 一 函数 关系 。 例 如 ， 求 不 同 半 径 时 贺 
的 面积 ， 没 有 现成 的 标准 函数 可 以 使 用 ， 程 序 设计 者 可 以 自己 定义 一 些 所 需 的 函数 并 调用 它 
(7. 这 就 是 BASIC 的 自 定义 函数 , 用 DEF 语 名 来 定义 一 个 自 定义 函数 . 定义 函数 语句 的 一 般 
形式 为 : 

DEF FNa (参数 ) = 表达 式 
DEF 是 Define (EX) 的 缩写 ,FN 是 Function (WO 的 缩写 。a 是 用 户 自己 定义 的 名 字 。 此 
名 字 遵 循 变量 名 的 定名 规则 。 它 和 FN 一 起 构成 一 个 函数 名 。 

【 例 7.9】 求 图 的 周 长 、 圆 面积 、 圆 球体 积 。 给 定 半径 分 别 为 1，2，3，4，5。 
10 РІ=3. 141593 
20 БЕРЕМ (В) =2* РІ >R 


30 DEF FNS(R)=PI* R *R 

40 DEF FNV(R) 一 4/3* PL* 及 人 3 

50 PRINT ” R”.” CIRCUM”,” AREA”,” VOLUME” 
60 FOR R 一 1TO5 

70 PRINTR，FNLCR)，FNSCR) ,ENVCR) 


80 NEXTR 

90 END 

RUN 
及 CIRCUM AREA VOLUME 
1 6. 283186 3. 141593 4.188791 
2 12. 56637 12. 56637 33. 51033 
3 18, 84956 28. 27434 113.0974 
4 25. 13275 50. 26549 268. 0826 
5 31. 41593 78.53983 523. 5989 


当 R=1 时 ,打印 R,FNL(D,FNSC1),FNV(1) 的 值 。 其 执行 情况 是 :将 实际 参数 的 值 1 代 
替 函 数 定义 语句 中 的 自 变量 R。 将 1 代替 R, 可 以 计算 出 表达 式 的 值 , 即 FN(1)=2 PI 1 一 2 
» 3.141593X1,FNS(1)=3.141593 * 1 x 1,ЕМУ(1) = 4/3 x 3. 141593 #13, 同样 , 当 R=2 
时 ,将 2 代替 定义 函数 语句 中 的 R, 再 求 出 FNL(2) ,FENS(2),FNV《2) 的 值 。 
说 明 : (1) 定义 函数 只 能 用 一 个 语句 来 完成 , 也 就 是 用 一 个 表达 式 来 表达 一 个 函数 关系 。 
象 下 面 的 函数 关系 就 无 法 用 一 个 表达 式 表 示 ， 无 法 在 一 个 语句 中 定义 。 
1 G> 0 
-| (z= 0) 
一 1 @<0) 
面 y= 2 十 z 十 1 这 样 的 函数 关系 是 可 以 用 一 个 语句 定义 的 ; 
10 DEF FNY (x) =X *X--X+1 
D 函数 定义 语句 中 的 参数 称 为 形式 参数 ， 它 并 不 代表 一 个 实际 存在 的 变量 ， 也 没有 固 
定 的 值 。 在 调用 此 函数 时 它 将 被 一 确定 的 值 所 代替 。 如 下 示 : 


形式 参数 
+ 
DEF FNL (R) =2*PIxR 


| x 


PRINT FNL (1) 
+ 
实际 参数 

也 就 是 说 ， 在 函数 定义 语句 中 的 参数 只 具有 形式 上 的 征用， 只 有 被 实际 参数 取代 后 才能 得 到 
函数 的 值 。 

O) 形式 参数 的 名 字 并 不 重要 ， 重 要 的 是 表达 式 所 表示 的 函数 关系 和 调用 时 所 给 定 的 实 
际 参 数 。 例 如 把 例 7. 9 中 20 一 40 语句 中 的 R 全 改 为 X， 即 ， 

20 DEFFNL (X) 一 2x PI * X 

30 — DEF FNL (X) 一 PIx X*X 

40 ”DEF FNV (X) 一 4/3xPIxXA3 
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程序 运行 结果 完全 相同 。 

(4) MS BASIC 允许 形式 参数 有 若 三 个 ， 例 如， Rk = vate, MURRE: 

10 DEF ЕМ (X, Y) 一 SQR (X x X--Y * Y) 

(5) DEF FN ТАТЫ, RE ХАҖ Ж. 20 语句 一 40 滞 句 不 产后 具体 强 作 ， 
只 有 到 60 语句 讶 用 防 数 时 才 利 用 该 函数 关系 计算 出 函数 的 值 。 

W 参数 和 函数 值 可 以 是 数值 型 的 ， 也 可 以 是 字符 帅 类 型 〈《 有 关 字符 串 类 型 见 第 八 章 ) 。 

©?) MRE DEF FN 语句 中 所 用 参数 名 与 程 谍 中 所 用 变量 名 相同 ， 它 们 并 不 代表 同一 对 
£. m. 

10 DEF FNY (X) =X z X+1l,2*X4+2, 5 

20 х-3 

30 PRINT FNY (2), X 
EE: 20 语句 中 的 变量 X 六 影响 ]0 语句 中 的 X, PERE: y) 一 3 十 1,2X3 十 2. 5，30 8 
名 显示 的 FNY(2) 的 值 只 受 实际 参数 2 影响 ， 即 (2) =22 十 1. 2X2 十 2. 5。 

(8) 如 果 DEF FN 语句 中 表达 式 中 使 用 的 变量 名 不 出 现在 参数 表 中 , 则 它 具 表 程 序 中 实际 
夺 在 的 变量 ， 在 调用 该 函数 时 应 提供 沪 变 量 的 值 ， 如 

10 DEF FNY (X) =A*X*X+B*X+C 
R ya) = art ы с ИЖЭ, y 只 是 的 函数 А, В, C 并 未 出 现在 形 参 表 中 ， 
它们 天 作 为 形 参 。 它 们 作为 一 般 变 量 。 如 盯 在 10 语句 后 面 还 有 尺 下 语句 ， 

20 A=2. B=3; C=4 

30 PRINT FNY (5) 
此 时 FNY (5) WEA: 2x543 ж 5 十 4 一 2XX25 十 15 十 4 一 69 

(9) 现 数 定义 语句 中 可 以 出 现 另 一 已 定义 的 函 教 ， 如 给 三 角形 三 边 求 面 积 ， 可 以 ， 

10 DEF ЕМ (A, B, C) = (A+B+0)/2 

20 DEF FNAREA(A,B,G)=SQR(FNS(A,B,C) + (FNS(A,B,C)— A) к (FNS(A,B,C)— B) + (ЕМБГА, 

B,C)—C) 

30 PRINT FNAREA (3, 4,5) 
在 20р B] SJ E 2 УЙЕ ENSA, B, C), TE 30 语句 引用 FNAREA ЩИ, 在 计算 FN 
AREA (3, 4, 5) МЕЧУ ЕМ (А, B, С), 

TARA: ЗНА АЧГ АЛЕКЕ SK 8 hik US о: Е, НЕШ 
是 已 由 系统 定义 好 的 而 自 定义 函数 需要 用 户 自己 定义 ， 

【 例 7. 10】 将 丙 条 曲线 打印 在 同一 坐标 图 上 。 
y1) =sin z 
0200) =2cos ( 2z + 30) 

TEN ЕЕЕ ЖДТ. IR. y {x) 曲线 用 字符 “x” 表 示 ，y2 (х) WRA O FARR. 
隔 10 打 印 一 个 点 ， 中 轴线 取 在 30 列 上 ， 由 线 “ 振 幅 ” 定 为 10 列 。 

处 理 本 题 的 思路 是 : 对 某 一 个 > 值 ， 计 算出 y1 GO 和 y2. GO АА, 分 别针 10 Ой" 
大 of, F sin (т) 的 变化 范 弹 只 能 从 一 1 到 1， 变化 太 小 无 法 显 永 出 来 )， 再 加 上 30 
(将 中 心 线 右 移 到 第 30 列 处 ) 。 

程序 如 下 ， 


10 
20 
зо 
40 
50 
60 


79 
80 


* ° 
ШИ 
° 
° . 
° * 
° А 
И . 
3 * 
° . 
o * 
о > 
o 
ск 
` 5 
` ° 
к ° 
* 9 
* ° 
* ° 
- ° 
ко 
Ox 
° * 
° n 
° * 
5 * 
ç * 
о * 
„о 
` ° 
* 5 
* ° 
. о 
* ° 
* a 
* ° 
图 7.1 


DEF FNY1 (X) =SIN (X) 

DEF FNY2 (X) 一 2* СОБ (2 x X+3. 141593/6) 

FOR X= 0 ТО 2 * 3.141593 STEP (3. 141593/18) 

PRINT ” X=”; INT (Xx 180/3. 14159); 

Fl=INT (10 *ЕМҮІ (X) 十 0.5) —80, F2=INT (10+ FNY2 (X) +0.5) +20 

IF F1 一 F2 THEN PRINȚ TAB(F1);” * ” ELSE IF F12>F2 THEN PRINT TAB(F2);”0"; TAB(F13;” 
* ” ELSE PRINT TAB(F1);” < ”, TAB(F2) 0” 

NEXT X 

END 


程序 中 用 自 定义 函数 ， 才 改 为 打印 其 它 两 种 曲线 ， 只 需 改 10 和 20 语句 即 可 。50 语句 是 
计算 应 该 在 一 行 上 哪 一 列 上 打印 “* ”或 “0” 字符, 对 计算 遇 的 函数 值 ENY1 00) 和 FNY2 
CO PAR 10, 四 合 五 入 ,加 30。 WME FI=F2, 表示 两 条 曲线 在 此 点 重合 ,只 能 打印 一 种 字 
Ж. АНГА “+”, ШЖ F1>F2， 表示 在 一 行 上 应 先 打印 y2 (хо 曲线 (字符 “0”) +] 
Myl GO 曲线 〈 字 符 “* ”), 和 如果 F1<F2， 则 应 先 打印 yY1 (x)， 后 打印 y2 GO. 


$7.3 +T о ж Ж 


7.3. 1 子 程序 的 概 您 
在 结构 化 程序 设计 中 , 提 但 使 用 “模块 化 " 方法 : 把 一 个 大 的 任务 分 解 为 若干 个 子 任务 ， 
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每 个子 任务 就 是 “个 模块 。 在 程序 中 ， 用 子 程序 来 实现 一 个 模块 的 动能 。 这 样 可 以 使 程序 
清 断 ， 容 易 编写 。 一 个 于 程序 可 以 被 程序 多 次 调用 。 
有 时 程序 中 的 某 部 分 语 包 需要 多 次 重复 执行 。 警 如 需要 多 次 打印 一 排 星 号 “ * ”。 其 程序 


ШЕРДИ 
10 FOR I= 10 TO 49 


20 PRINT TAB О), njaaa ОА) “*” 号 
30 МЕХТІ 


100 FOR I=10 TO 49 

110 PRINT TAB (1); js 1#“ + 

120 NEXT 1 

可 以 将 打印 一 排 星 号 的 一 段 程序 (100—120 语句 ) 编 威 一 个 子 程序 。 在 程序 需要 的 地 方 
写 上 调用 子 程序 语句 ， 每 调用 一 次 就 打印 一 排 星 号 。 如 : 

10 GOSUB 1000 

20 

100 GOSUB 1000 


1000 FOR 1=10 TO 49 

1010 PRINT ТАВ (1), “s”, 

10200 NEXTI песента 
1030 RETURN 


其 中 1000-1030 语句 就 是 子 程序 。10 语句 和 100 语句 (GOSUB 语句 ) 是 调用 子 程序 语 
№), GOSUB 意思 是 “ 转 去 执行 子 程序 * (00 SUBPROGRAM), GOSUB 1000 表 未 转 去 执行 第 一 
个 语句 的 行 号 为 1000 的 子 程序 。 子 程序 以 RETURN 语 挟 销 束 。 当 程序 执行 到 RETURN 语句 
对 ,就 返回 到 主 程序 去 ， 接 着 执行 调用 语句 的 下 一 个 语句 。 如 果 是 由 10 语 多 调用 子 程序 的 ， 
则 执行 完 子 程序 后 接着 执行 10 语句 的 下 一 语句 ， 即 20 语句 。 


7.3.2 子 程序 的 结构 各 子 程序 的 调用 


在 BASIC 中 子 程序 是 与 主 程序 连 写 在 一 起 的 。 子 程序 并 无 明显 的 开始 标志 ， 即 从 程序 语 
名 形式 来 看 对 子 程序 中 筑 一 个 语句 没有 任何 特殊 规定 ， 那 末 子 程序 的 起 始 范 围 是 如 何 确 定 的 
呢 ? 子 程序 的 起 点 是 由 GOSUB 语句 决定 的 。 重 如 上 面 程序 . 10 诸 句 是 “GOSUB 1000”, ШЖ 
时 调用 的 子 程序 是 从 1000 语句 开始 ,直到 过 到 RETURN 语句 就 结束 子 程序 的 操作 ,假如 有 以 
тежа, 


10 сов 1000 


50 GOSUB 1100 


1000 REM SUBI 
119 


1000 REM SUB2 


1200 RETURN 
10 语句 调用 的 子 程序 是 由 1000—1200 语句 组 成 的 ， 而 50 语句 调用 的 子 程序 则 是 由 1100 — 
1200 语句 组 成 的 。 

调用 子 程序 必须 用 GOSUB 语句 ，GOSUB 语句 的 一 般 形 式 为 : 

GOSUB 《〈 子 程序 第 一 个 语句 行 的 行 号 > 

调用 子 程序 时 是 按 下 面 的 顺序 找 行 的 ，Q(D 转 去 子 程序 的 第 一 个 语句 ，@ 执 行 子 程序 中 的 
语句 ; @ 返 回 主 程序 ; @ 继 续 执 行 主 程序 ， 前面 7. 3. 1 段 中 的 程序 调用 二 次 子 程序 〈 而 县 是 同 
一 个 子 程序 ), 其 执行 过 程 如 图 7. 2 所 示 ， 图 中 按 亿 一 @ 顺 序 执行 ， 其 中 一 @ 的 含义 如 上 述 。 
名 ~@ 的 作用 如 下 : @ 再 次 调用 子 程序 , 转 去 子 程序 的 第 一 个 语句 ; @@ 执 行 子 程 序 中 的 语句 ， 
@ 运 回 主 程序 ，@ 继 续 执行 主 程序 。 


тозо RETURN 
士 程序 теж 


【 例 7. 11】 ”验证 哥 德 巴赫 猜想 ， 一 个 不 小 于 6 的 偶数 可 以 分 解 为 两 个 素数 ОО) 之 
和 ,例如 :6 一 3 十 3,8 一 3 十 5,10 一 3 十 7 。 输 入 任 一 偶数 N 


， 要 求 打印 出 它 是 由 哪 两 个 素数 组 成 。 в 

解 此 问题 的 思路 是 这 样 的 : 假如 给 一 个 偶数 18, 可 以 把 м № 
它 分 解 为 两 个 数 NI AN2, NI+N2=N=18, 4 N1—2, 4] 2( 是 ) 160%) 
断 N1 是 否 素 数 ，2 是 素数 , 求 N2 一 N 一 N1 一 18 一 2 一 16, 再 3( 是 ) 15( 不 是) 
判断 N2 是 否 素数 ,16 不 是 素数 , 则 2 和 16 这 一 对 数 不 符 合 4 不 是 ) м 
要 求 。 再 使 N1 变 成 3，3 是 素数 ，N2 二 N 一 N1 二 18 一 3 二 15， 5( 是 ) 1300) 
15 不 是 素数 ， 这 一 对 数 也 不 符合 要 求 。N1 再 变 成 4，4 不 是 
素数 , 这 时 不 必 有 再 求 N2 和 判断 N2 是 否 素数 。 再 使 Mi 一 5, 5 Шз 


是 素数 , N2=N 一 N1 一 18 一 5 二 13, 13 是 素数 , 5 和 13 都 是 素数 , 因此 , 18=5+13 是 符合 题 
目 要 求 的 。 以 上 过 程 见 图 7. 3, 
根据 以 上 思路 ， 可 以 设计 出 算法 ， 
51, 输入 N 
52. 1>N1 
S3, 使 NN 十 1~>N1， 直 到 N1 是 素数 
120 


S4: N2=N—NI1 

55, Фоме 不 是 素数 ， 返 回 S3。 否 则 打印 N 一 N1 十 N2 

以 上 算法 可 用 图 7. 4 表示 。 

但 这 个 算法 还 没有 完全 细 化 ，“ 求 素数 ” 还 应 进一步 细 化 。 我们 可 以 用 一 个 子 程序 来 判断 
一 个 数 是 否 察 数 。 可 以 这 样 考虑 ， 子 程序 对 一 个 数 判 断 其 是 否 农 数 ,若是 素数 , 则 使 变量 F= 
0， 老 不 是 罕 数 则 使 F 一 1， 在 主 程序 中 判 肠 下 是 4 还 是 1 即 可 。 

程序 可 写 如 下 ， 


10 INPUT”, N=", № ` 
30 『NI= NI 十 ! 1+ х. 
40 |M=NI 
50 “GOSUB 1000 
60 „IF F=1 GOTO 30 
70 N2=N—NN1 
80 M=N2 
90 GOSUB 1000 
100 IF P=: СОТО 30 
110 PRINT N” =” М" +”, N2 
-20 GOTO 1080 
1000 REM SUBPROGRAM 
100 Е=0 
1020 IF M=2 THEN RETURN 
1080 J=INT (SQR (Му) 
1040 FOR I=2 TO ; 
1050 IF M/I=INT (МИ) THEN F=1 
1050 NEXT I 
1070 RETURN 
1080 END 
RUN 
GN=18,” 
18= š + 13 
EN=20,/ 
x= 3 +17 


请 注意 ， 

(1) 子 程序 是 对 M 作 判 断 是 否 素 数 。 为 什么 在 子 程序 中 以 M 为 对 象 而 不 是 直接 对 NI 或 
N2 进行 素数 判断 ? 这 是 为 了 提高 子 程序 的 通用 性 .第 一 次 调用 子 程序 时 ,目的 是 判断 N1 是 
TRE, НИЯТ Р, КАНЕ NI RERA м, 如果 M 是 素数 ， 则 从 子 程序 带 回 
的 变量 E 的 值 为 ,否则 F 为 1。60 语 句 就 根据 F 是 0 或 1 作 相 应 处 理 。 第 一 次 调用 子 程序 的 
目的 是 判断 N2 Ж, HE, MEREK N2 赋 给 M。 若 执行 子 程序 后 F= 二 1， 表示 M 不 
是 素数 (FD N2 不 是 素数 )， 应 返回 30 WH, EN 的 值 加 1， 再 重新 进行 以 上 步骤 。 

(2) 请 注意 120 语句 的 作用 ， 如 果 无 比 GOTO 语句 ， 则 执行 完 110 语句 打印 出 结果 后 ， 
还 会 执行 子 程序 中 的 语 包 ,这 一 点 应 十 分 注意 。 要 将 子 程序 与 主 程序 分 隔 开 ， 使 主 程序 只 能 
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用 GOSUB 语句 调用 子 程序 ， 而 避免 不 经 过 
GOSUB 而 直接 进入 子 程序 (这 时 再 遇 
RETURN 就 会 出 现 错误 ) 。 因 此 要 将 子 程序 
和 主 程序 隔离 开 来 (用 СОТО, STOP 或 END 
语句 来 隔离 )。 

(3) 子 程序 中 有 两 个 RETURN, 无 论 遇 
哪 一 个 RETURN 语句 都 使 得 结束 子 程序 过 
程 前 使 流程 返回 主 程序 。 一 个 子 程序 中 可 以 
有 多 个 RETURN, EMIA A-A RE- 
TURN 语句 都 立即 返回 主 程序 。 子 程序 的 范 
为 1000 一 1070 语句 ， 不 要 误 认 为 子 程序 
的 范围 为 1000 一 1020 语句 。 子 程序 的 操作 
图 7.5 可 以 用 图 7, 5 表示 。1020 语句 也 可 以 改 为 : 

1020 IF M=2 THEN GOTO 1070 


H 


x 


即 汇合 到 一 个 RETURN 语句 处 返回 主 程序 。 
7.3.3 ЕФЕ 


在 执行 一 个 子 程序 的 过 程 中 还 可 以 调用 另 一 个 程序 ， 在 执行 第 二 个 子 程序 的 过 程 中 ， 又 
可 以 调用 第 三 个 子 程序 。 这 样 可 以 一 个 一 个 地 调用 下 去 。 这 种 调用 称 作 子 程序 的 嵌 套 ， 见 图 
7.6。 图 中 所 未 为 一 个 主 程序 ,以 及 三 个 子 程序 嵌 套 ,其 执行 的 顺序 为 , 从 主 程序 转 去 执行 
第 一 个 子 程序 , @ 执 行 子 程序 1， 直 至 遇 到 GOSU 语句 ; 久 转 去 第 二 个 子 程序 ; @ 执 行 子 程 
序 2， 直 到 遇 到 GOSUB 语句 ; ЭНЖЕ Рак, @ 执 行 第 三 个 子 程序 。 此 子 程序 中 不 再 
蔗 套 新 的 子 程序 .因此 一 直 执行 到 RETURN 语句 , @ 返 回 于 程序 2 中 调用 子 程序 3 的 GOSUB 
语句 的 下 一 句 ; @ 继 续 执行 子 程序 2 的 语句 ,直到 授 RETURN 语句 ; @ 返 回调 用 子 程序 2 的 
第 一 个 于 程序 中 的 GOSUB 语句 的 下 一 个 语句 ; 们 继续 执行 子 程序 1 的 语句 , 直到 过 RETURN 
语句 ; @@ 返 回 主 程序 中 调用 子 程 序 1 的 下 - -语句 ， 人 继续 执行 主 程 序 中 的 语句。 


GOSUB 
о 100 


图 7.6 
如 果 程 序 中 用 到 子 程序 的 典 套 , 应 注意 每 个 子 程序 中 的 RETURN 语句 使 流程 返回 到 哪 一 
个 子 程序 (或 主 程序 )， 请 仔细 观察 图 7. 6 的 箭头 指向 。 应 该 是 : 返回 到 调用 该 子 程序 的 调用 
语句 的 下 一 句 去 。 例 如 子 程序 3 是 由 子 程序 2 调用 的 ， 因 此， 执行 到 子 程序 3 的 RETURN iÑ 
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ув, AATF ТАЕ EJ Е ЖЕТЕ ГНЕ 1. 
与 图 7. 6 相对 应 的 程序 可 写 为 ， 


5 PRINT “0” САЯЖАН ТЕЛУ 

10 GOSUB 100 САНТА 1) 

30 END 《 主 程序 结束 ) 

100 PRINT “1” FEF 1 开始 > 

110 GOSUB 200 ГЕ ПЕЧЕ 2 

120 RETURN ОЕП АШ) 

200 PRINT “2” { 子 程序 2 开始 》 

210 GOSUB 300 Сая Тет 3) 

220 RETURN GREEFF D 

300 PRINT “3” СР з 

310 RETURN С Өй ШКЕ?) 

执行 结果 为 : 

RUN 

[ч RHEE REE H ЖЕР 

1 (huy qam ТТЕ. ЖАТ ЕТЕ) 
2 《执行 子 昼 序 2 时 打印 的 ， 才 未 进入 第 2 ЕЗ 
3 Chi FEB 3 时 打印 的 ， 去 示 进 和 第 3 E EE) 


可 以 奢 到 ， 子 程序 还 可 以 调用 另 一 子 程序 ， 一 个 程序 牛 只 能 有 -TEEF ATUAL 
个 子 程 主 。 子 程序 既 果 以 被 调用 ， 也 可 以 调 由 其 它 子 程序 。 不 要 认为 岂 是 调用 子 模 评 的 都 叫 
EEF. 确切 地 说 ,应 当 称 为 “ 调 必 程 序 ”和 “被 调用 程序 "。 主 程序 只 能 是 “ 调 夺 程序”, 而 
子 程序 友 可 以 作为 “调用 程序 *， 也 可 以 作为 “被 洞 用 年 序 ”。 

子 程 序 的 峰 套 最 多 可 以 多 少 层 KARERE). 不 同 的 BASC 有 不 同 的 规定 , MS BASIC 
ЖИЙЕН. 只 受到 内 存 空间 的 限 机 СЕВР тру), 有 有 的 BASIC HR tir E 
8 层 。 ЖЕЕ, ТШ ЛЛ. 

10 GOSUB 100 

20 GOSUB 100 

30 GOSUB 100 


只 是 连续 多 吹 调 同一 个 子 得 序 :在 调用 一 次 拉 稚 序 结束 之 后 才 开 始 另 一 次 调用 子 程 序 的 操 


它 
作 。 


了 程序 直接 或 癌 接 调 用 
BG. 称 为 递归 调用 。 如 ， 


10 GOSUB 10 
w GDSUE на) wo GUSUB —¿ - 
是 不 行 的 。 也 不 要 象 以 
TAPER: 
- 10 GOSUB 100 
LAY ERE : 
Шот? 100 GOSUB 10 


| 忆 是 不 行 的 ， 因 为 在 溯 
程序 中 又 友 过 来 调用 子 程序 ， 水 运 不 会 缚 来。 见 区 7.7。 


123 


但 是 如 果 在 递归 调用 时 能 使 调用 在 一 定 限 次 数 内 结束 ， 则 是 允许 的 。 例 如 : 

10 X=3 

20 PRINT X; ERF 100 100 

30 GOSUB 100 x= =x- x=x-1 

40 END совин К PRINTY x, ТЕ x= UT HEN] 
100 Х=х—1 RETURN 
110 PRINT X, GOSUB 109 GOSUB 100 
120 IF X — 0.THEN 

RETURN 

130 GOSUB 100 
140 RETURN E 7.8 
这 是 子 程序 间接 

调用 自己 。 在 执行 100~140 子 程序 过 程 中 又 调用 子 程序 100~140。 其 调用 过 程 可 以 用 图 7. 8 


不 。 


图 7. 8 中 ,在 前 二 次 调用 中 由 于 之 0 所 以 未 画 出 “IF x 一 0 THEN RETURN” 的 操作 ,以 
便 简明 清晰 , 在 第 一 次 调用 时 , X =3—1=2, 打印 出 “2”, 第 二 次 调用 本 子 程序 ,，X 2—1 
1， 打 印 出 “1"， 第 三 次 调用 本 子 程序 ， 此 时 工 一 1 1 一 0， 打 印 出 “0"， 然 后 返回 ， 请 注意 


每 次 返回 的 返回 点 。 
RUN 
3 2 1 0 
可 以 用 跟踪 命令 TRON 打印 出 执行 语句 的 情况 : 
TRON 
RUN,” 


[10] [20J 3 [30] [100] [110J 2 [120] [130] [100] [110] 1 [120] [130J [100] 

[110] 0 [120J [140] [140] [40] 

在 BASIC 中 使 用 递归 调用 虽然 是 允许 的 ， 但 不 容易 搞 清 
用 递归 调用 。 


调用 关系 ， 故 不 提倡 初学 者 使 


7.3.4 正 -GOSUB 语句 和 ON - GOSUB 语 名 


我 们 已 经 介绍 过 IF - GOTO 语句 和 ON - OOTO 请 句 ，BASIC 还 提供 IF - GOSUB 语句 和 
ON - GOSUB 请 句 ， 其 语句 一 般 形式 为 ， 

下 << 逻 辑 表达 式 >>GOSUB 一 行 号 > 

ON<< 算 术 表 达 式 >GOSUB< 行 生 1, 4782, > 

例如 ， 

10 IF X2>0 GOSUB 100 

20 ON X GOSUB 200, 300, 400, 500 

它们 与 正 - GOTO 语句 和 ON - СОТО 语句 的 区 别 在 于 : 执行 完 GOSUB 语句 后 返回 到 IF 
- GOSUB 语句 或 ON - GOSUB 语句 的 下 一 个 语句 ， 利 用 ON - GOSUB 语句 可 以 在 应 用 程序 中 
设计 屏幕 菜单 供用 户 方便 使 用 ( 见 第 十 章 ) 
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7.3.5 子 程序 的 作用 


子 程序 的 作用 是 专门 玫 来 完成 某 一 指定 的 功能 的 。 例 如 : 求 阶乘 , 找 素 数 、 排 序 .打印 ~ 


信息 可 以 根据 不 同 的 需要 编写 出 不 同 的 子 程序 。 当 然 也 可 以 不 用 子 程序 ,而 直接 在 主 
程序 中 适当 的 地 方 写 出 这 个 程序 段 。 但 是 这 就 使 主 程序 段 显 得 宙 长 ,看 起 来 费劲 难 懂 。 


有 人 将 常用 的 一 些 需要 求解 的 问题 〈 例 如 解 联 立 方程 ， 求 定 积分 ， 排 序 ……) 写成 一 个 
个 子 程序 ， 汇 编 成 负 ， 用 户 需要 时 .可 直接 抄 用 代入 程序 即 可 ， 不 必 每 次 自己 再 编写 这 一 自 
程序 了 。 也 可 以 把 这 些 子 程序 分 别 指定 名 字 〈 即 文件 名 ) 存在 磁盘 上 ， 需 用 时 按 文件 名 调 到 
内 存 ， 然 后 用 GOSUB 调用 ， 这 就 是 “程序 库 ”。 在 解决 复杂 问题 时 ， 尘 先 编 好 的 子 程序 是 十 
分 有 用 的 。 
如 果 一 个 程序 段 多 次 被 调用 ， 显然 把 它 写成 子 程序 是 方便 的 ， 可 以 提高 编程 序 的 效率 。 
有 时 ,尽管 某 一 程序 段 只 需要 调用 次 ,也 把 它 写成 子 程 
序 , 并 把 程序 应 该 完成 的 主要 功能 都 分 配给 各 子 程序 去 完成 。 
这 洋 主 程序 可 以 写 得 比较 短 ,用 一 个 GOSUB 语句 调用 一 个 
子 程序 。 主 程序 就 主要 由 若干 个 GOSUB 语句 组 成 了 。 如 ， 

10 GOSUB 100 

20 GOSUB 200 

30 GOSUB 300 

40 END 

可 把 主 程序 和 各 子 程序 看 作 一 个 - -个 的 模块 ， 主 程序 可 
以 看 作 控制 模块 ， 子 程序 可 以 看 作 功 能 模块 。 主 程序 好 比 总 
调度 , 调 各 功能 模块 完成 各 部 分 功能 。 见 图 7. 9。 这 种 模块 化 程序 设计 方法 可 以 使 程序 逻辑 清 
楚 ， 易 于 借读 和 理解 ， 也 便 子 调试 。 


J 是 


利用 BASIC 提供 的 标准 顷 数 完成 可 是 7. 1 一 7. 9, 

7. 1 编写 程序 ， 打 印 出 0 一 100 之 问 能 被 3 和 5 同时 整除 的 整数 。 

7. 2 编写 一 个 “一 位 数 乘法 练习 程序 ”, 打印 出 题目 : A + B=? (A 和 B 各 为 -- 个 0—9 2 
间 的 整数 ), 根据 回答 的 结果 , 给 出 “答对 了 ”或 “ 答 错 了 ”的 信息 。 若 答对 则 再 出 另 一 题目 ， 
若 答 错 ， 重 新 打印 出 该 题目 ， 要 求 重 做 ， 直 到 做 对 为 止 。 出 题目 是 反复 地 进行 的 。 

7. 3 以 下 程序 会 产生 什么 打印 结果 ， 

10 FOR X=1 TO 8 

20 PRINT TAB (10— X); 

30 FOR А=1ТО2+Х—1 

40 PRINT “x”, 

50 NEXT A 

60 PRINT 

70 NEXT X 

99 END 
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7.4 想 打印 如 图 7. 10 所 示 的 著 形 图 案 ， 请 编程 序 。 


7.5 输入 十 个 整数 ， 要 求 分 别 按 奇数 和 偶数 打印 
出 来 ， 并 分 别 求 出 奇数 和 以 及 偶数 和 。 кая 

7.6 求 最 初 的 100 个 素数 。 PE 

7.7 模 质 玩 发 子 游戏 ,每 个 发 子 为 - -个 正六 面体 ， Ы 


每 一 面 分 别 刻 有 [,2,3,4,5,6 MA BRA 4 + Ë 
子 , 回 同时 上 出现 4 个 “6 点 ”的 机 率 是 多 少 ? 
7.8 AZER, 每 堆 球 中 都 有 红 , И, Ж, п, Ж 


五 种 颜色 的 是 五 个 球 , 今 随手 从 每 堆 中 从 取 一 个 球 ,如 - 
RR 1000 次 , fn] , 四 取 到 三 种 相同 色 的 球 的 次 数 是 8720 
Жр ОНЕ НЛ: КАА Т 

色 的 次 数 。 


?7.9 用 自 定 义 钞 数 编程 序 ， 求 三 角形 面积 。 三 角形 三 边 。,8,c 由 键盘 输入 。 

7. 10 月 自 定义 函数 求 4,8 二 点 闻 的 焉 离 #8， 分别 求 出 А,В 为 下 列 各 坐标 值 时 的 距离 。 

DA (3, 5), B 6,3) BA (—3, 8),В (5, 7) 

ФА (0, —5), В (7, 10) DA (—7, —8), B (—5, —6) 

7.11 求 多 项 式 ae 十 bx 一 上 的 值 , a, b, c 的 值 分 别 为 以 下 用 组 : Da=1, b=2, e=3; © 
a=1. 5, b=2. 5, e=3. 5; @а=0, 5=4с—6; @а=—5, b= —3, c=7, E X Р (a, 
b, с), 即 f 为 a, b, “的 函数 . x НЛ. 编程 序 求 出 并 打 印 以 上 4 种 情况 下 多 项 式 的 什 
《在 这 4 神情 况 下 x НА. 

7.12 求 100—200 之 则 的 全 部 淹 数 ， 并 打印 出 来 、 用 子 程 序 编程 证。 

7.13 写 出 下 面 程序 运行 的 结果 ， 并 写 出 语句 执行 的 顺序 。 

19 GOSUB 100 

29 GOSUB 200 

30 GOSU3 300 

40 END 

100 READA, B 

110 C=A-+B ` 

120 PRINTC 

130 RETURN 

200 READ A, B 

210 C=AxB 

220 PRINTC 

230 RETURN 

300 READA, B 

319 C=AB 

320 PRINT C 

330 RETURN 

900 DATA 15, 20, 25. 30, 35, 40 

”7.14 采用 子 程 序 的 方法 求 7! +8! 十 91 +10: 


126 


第 八 章 字符 处 理 


$8.1 ж Ж 


前 几 章 介绍 了 计算 由 在 数值 计算 中 的 应 用 ， 前 面 所 介绍 的 程序 中 用 到 的 变量 和 数组 都 是 
数值 型 的 。 事 实 上 ， 计 算 机 的 另 一 个 十 分 重要 的 用 途 是 非 数 值 运算 ， 尤 其 是 用 十 事务 管理 领 
域 ， 例 如 图 书 检索 、 人 事 管 理 、 教 务 管理 、 经 济 管理 等 。 在 这 些 领域 中 需要 用 计算 机 处 理 一 
些 文字 《例如 把 以 宝 母 “A” 开 头 的 书目 打印 出 来 ， 按 英文 字母 顺序 排列 各 国 的 国名 等 )。 这 
就 要 求 计算 机 有 文字 处 理 的 能 力 。 有 人 说 ， 如 果 一 个 计算 机 没有 文字 处 理 功能 ， 充 其 量 它 只 
是 一 个 高 级 计算 器 。 

BASIC 的 一 个 重要 功能 就 是 可 以 进行 字符 处 理 , 面 且 它 的 字符 处 理 能 力 是 比较 强 的 , 亡 提 
供 了 字符 串 变量 、 字 符 串 数组 ， 以 及 压 富 的 字符 串 函 数 ， 使 用 十 分 灵活 方便 。 

所 谓 “ 字 符 串 ”是 由 系统 允许 使 用 的 若干 个 字符 组 成 的 。 在 第 三 章 $ 3. 2 中 已 介绍 过 可 以 
直接 用 PRINT 语句 输出 一 个 “字符 串 "， 倒 如: 

100 PRINT “CHINA”, “BEIJING” 

“CHINA” ЯП “BENING” РР, RT ИЕНА НА 2, SEP [DU РН 
存放 在 变量 或 数组 中 ， 这 就 是 字符 串 变 量 和 字符 串 数组 。 


8$ 8.2 ТИРЕК 


存放 数值 的 变量 称 为 数值 变量 ， 泛 今 为 止 所 用 到 的 都 是 数值 变量 ,数值 变量 的 值 是 一 个 
数值 ， 例 如 

10 A=3.6 
А 就 是 一 个 数值 变量 ， 同 样 可 以 将 一 个 字符 串 存 放 到 一 个 变量 中 ， 例 如 ， 

10 A$= “CHINA” 

20 B$ = “BEIJING” . 
我 们 己 经 用 赋值 语句 将 字 将 串 "“CHINA” 和 ?BEIJING" 分 别 赋 给 了 字符 申 变量 A$ 和 了 B$ , 在 需 
要 使 用 这 些 字符 串 时 可 直接 调用 字符 串 变量 A$ 和 B $ ,就 如 同调 用 数值 变量 一 样 , 例 如 : 

30 PRINTA$, B$ 
输出 的 结果 如 下 : 

CHINA BELING 

字符 品 变 量 名 取 名 规则 与 数值 变量 相同 ， 只 是 在 最 后 加 一 个 “$$”， 表 示 为 字符 串 类 型 。 
如 A1，B1 为 数值 变量 ， 而 A1$ ，B1 为 字符 串 变量 。 
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注意 : 

(1) 在 赋值 语句 中 ,学 符 灸 要 用 引号 括 起 来 ， 如 果 写 成 下 面 这 样 是 不 对 的 ， 

10 А $ =CHINA 

20 B $ =BEIJING 
系统 将 把 CHINA 和 BEUING 当 作 变量 名 而 不 作为 字符 串 来 处 理 。 

(2) 在 输出 字符 串 变 量 的 值 时 是 不 包括 引号 的 。 

O 应 该 将 字符 串 和 数值 、 字 符 串 变量 和 数值 型 变量 严格 区 别 开 来 。 例 如 123 是 一个 数 
值 ,， 而 “123” 蚌 一 个 字符 囊 ， 它 并 不 代表 一 百 二 十 三 ， 而 仅 代 表 三 个 字符 “1”，“2” 和 和 
“3” 其 中 每 个 字符 都 是 与 其 它 字符 无 关 的 独立 字符 。 因 此 字符 囊 不 能 用 来 作 算术 运算 。 例 如 
想 用 字符 串 “123” 加 字符 串 “456” 来 得 到 “579” 是 不 可 能 的 。 


$8.3 字符 囊 的 输入 


除了 可 以 月 赋值 语句 给 字符 串 变量 赋值 之 外 ,还 可 以 用 READ 语句 和 INPUT 语句 将 字符 
串 输 入 给 字符 串 变 量 。 


8.3.1 用 READ/DATA 语 名 向 字符 囊 变 量 赋 值 


用 READ 和 DATA 语句 除了 可 以 用 来 给 数值 型 变量 〈 普 道 变量 ) 赋值 外 ， 也 可 以 用 来 读 
字符 囊 并 将 它 输送 给 字符 串 变 量 。 

【 例 8.1】 ”打印 学 后 成 绩 的 程序 : 

10 PRINT “МАМЕ”, “ NO. ”, “GRADE” 

20 FOR I=1TO6 

30 READA$, B, C$ 

40 PRINT A$, B, C$ 

50 NEXT I 

60 DATA “ZHANG”, 101, “A”, “WANG”, 102, “B” 

70 DATA “LI”, 103, “A”, *LING”, 104, “D” 

80 DATA” ТАМ”, 105, “С”, “FUN”, 106, “A” 


90 END 

运行 结果 为 : 

NAME NO. GRADE 
ZHANG 101 A 
WANG 102 B 

LI 103 A 
LING 104 D 

TAN 105 c 
FUN 106 A 


程序 中 30 语句 要 求 从 DATA 语句 中 读数 据 。 ШТРАФ СФЕ, 因此 在 DA- 

TA 语句 中 的 第 一 和 第 三 个 数据 应 该 是 字符 惠 而 不 是 数值 。 许 多 BASIC 要 求 在 语句 中 将 字符 

串 用 引号 括 起 来 .B 是 普通 数值 型 变量 ,因此 DATA 语句 中 第 二 个 数据 应 该 是 数值 而 不 能 是 字 
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符 串 。 第 一 次 执行 30 ВРЕ, ЖЕЕ НВ “ZHANG” 输送 给 A $. 把 数值 101 输送 给 B, 把 字 
TR “А” Н C$， 然后 40 语句 打印 出 ; 
ZHANG 101 A 
如 此 特 琴 六 次 ， 每 一 次 恋 入 一 组 姓名 、 学 号 、 公 数 等 级 。 然 后 打印 出 米 。 
ЖЕН: 
(D 可 以 在 -个 READ 语句 中 出 现 数值 变量 和 字符 串 变 晤 ,同样 ， 存 DATA 语句 中 可 以 
同时 出 现 数值 数据 和 字符 串 数据 。 
(2) DATA 语 司 中 的 数据 类 型 应 与 READ 语句 中 相应 的 变量 的 类 型 一 致 。 
ШЖ DATA 语句 写成 下 面 这 样 是 错误 的 ， 
60 DATA “ZHANG”, “101”, “А”, “WANG”, “102”, “B” 
因为 30 语气 中 的 B 是 数值 变量 ， 而 读 人 的 数据 “101” 和 “102” 是 字符 型 的 ， 产生“ 类 
型 不 一 致 ”的 错误 。 
(3) ЖОЮ BASIC (包括 MS BASIC) 允许 在 DATA 语句 中 的 字符 囊 数 淆 不 必用 引号 括 起 来 。 
如 上 面 例 8. 1 程序 中 的 60 语句 可 以 写成 : 
60 DATA ZHANG, 101, А, WANG, 102, B 
EE. МАНЕ ЕЕ D RU Ek Pk EB е, HUH SSE FARME 
来 . 例如 ， 
10 READ DATE! $ , DATE? $ 
100 DATA “MAY 1, 1990”, “SEP 1, 2000” 
DATE1 $ К {Ж “MAY 1, 1990”, DATE2 $ ñSÍË 5 “SEP 1，2000”， 面 如 果 在 DATA 语句 中 
不 局 引号 ， 写 成 ， 
100 DATA MAY 1, 1990, SEP 1, 2000 
刚 将 也 号 作为 分 陋 两 个 数据 的 标志 ， 于 是 DATE1$ 的 入 为 “MAY 1”, Й DATE2 S 的 值 是 
"1990"。 又 如 : 
19 READ MARK $ 
20 PRINT MARK $ 
100 DATA“. TABLE. ooe 
` 20 语句 打印 出 ， 
aoo so ec TABLEL > a a 222 
如 果 100 语句 中 不 用 引号 ， 写 成 ， 
10© DATA oou aaa a TABLE . ooo 
由 于 在 DATA Hat ЖЕГИР ЕИ ЕРИНЕ RTEA. H, 20 语句 打印 结果 
为 


vare TABLE oana 
WL ЕИ ЕШ Ар Т. ERER, BARAA FARRE. 


8.3.2 JẸ INPUT {#505454 8 W (Ë 


INPUT ун] ДАНЬ АСЕ ЗЕ Ар ИЕ. НИКЕГЕ ЖИНИ. 
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【 例 8. 2〗 登 记 姓 名 和 地 此 
10 INPUT “WHAT IS YOUR NAME”; А $ 
20 INPUT “WHAT [S YOUR STREET ADDRESS”; B$ 
30 PRINT 
40 PRINT “NAME:”, À $ 
50 PRINT “ADDRESS:”, B$ 
60 END 
RUN 
WHAT IS YOUR NAME? “WANG HAO” „7 
WHAT 15 YOUR STREET ADDRESS? “192 BEIJING ROAD” ,/ 
NAME; WANG HAO ' 
ADDRESS; 192 BEIJING колы 打印 结果 
从 键盘 回答 询问 ， 将 字符 串 套 入 时 ， 一 般 应 该 用 引号 将 字符 串 拓 起 来 。 如 上 面 所 示 。 但 是 如 
果 字 符 串 中 不 包括 逗号 、 前 置 空格 或 尾随 空格 时 ， 引 号 亦 可 以 省 去 。 如 上 面 程序 运行 时 、 也 
可 以 输入 如 下 : 
RUN 
WHAT 1S YOUR NAME? WANG HAOw 
WHAT IS YOUR STREET ADDRESS? 192 BEIJING ROAD,/ 
如 果 有 ， 
10 INPUT “DATE”; D $ 
执行 时 ， 以 下 回答 不 合适 : 
RUN 
DATE? MAY 1, 1990, 
D$ 的 信和 是 “MAY !” 面 不 是 “MAY 1，1990”。 我 们 建议 ， 初 学 时 最 好 把 每 个 字符 串 都 用 引 
号 括 起 来 ， 以 免 引 起 错误 。 
可 以 在 一 个 INPUT 语句 中 既 使 用 字符 串 变 量 , 又 使 用 数值 交 量 。 在 键盘 输入 数据 时 ，j 
相应 地 分 别 输入 字符 串 和 数值 。 如 ， 
10 INPUT “ENTER YOUR МАМЕ AND AGE”; A $, В 
20 PRINT B, A $ 


99 END 

RUN 

ENTER YOUR NAME AND AGE? “ZHANG FUNG”, 20;/ 
20 ZHANG FUNG 


§ 8.4 字符 串 表 达 式 


可 以 把 两 个 或 多 个 字符 串 或 字符 串 变 量 过 接 起 来 . BASIC 中 用 “十 ”作为 连接 字符 串 的 运 
ARA ( 称 为 “字符 串 运算 符 ”) 。 

“THIS” + “15” + “А” + “ BOOK. ” 
字符 串 运 算 符 是 对 字符 串 数据 进行 运算 的 唯一 的 运算 符 ， 它 的 作用 是 把 “十 ”运算 符 两 侧 的 
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字符 串 过 接 成 … 个 字符 串 , 用 “十 ”号 将 字符 捉 数据 连接 起 来 的 式 子 称 “ 字 符 串 表达 式 ”。 上 
面 就 是 一 个 字符 串 表达 式 .“ 十 ”两 侧 可 以 是 字符 串 、 字 符 串 变量 、 字 符 串 数组 元 素 、 或 值 为 
字符 串 的 串 函 数 〈 有 关 串 数组 和 串 函 数 将 在 本 章 稍 后 介绍 ) 。 

可 以 将 一 个 字符 串 和 表达 式 的 值 赋 给 一 个 字符 串 变 量 《或 字符 串 数 组 元 素 )。 如 : 

10 A$ = “THIS” + “LIS” + “А” + “BOOK.” 
A$ 的 值 为 :“THIS IS A BOOK. ” 


§ 8.5 字符 囊 的 比较 


两 个 数值 可 以 比较 ， 如 5223, Ху 等 。 两 个 字符 串 (或 字符 串 变量 ) 也 可 以 比较 。 
如 果 两 个 字符 串 ， 它 们 的 每 一 个 字符 〈 包 括 头 属 的 空格 ) 都 相同 ， 则 认为 这 二 个 字符 串 
相等 。 
røe. 3) 
20 INPUT “ARE YOU A BOY”; A$ 
30 IF A$ = “YES” PRINT “YOU ARE A BOY” ELSE PRINT “YOU ARE A GIRL” 
40 END 
RUN 
ARE YOU A BOY? “YES” ,/ 
YOU ARE A BOY 
由 于 在 执行 20 语句 时 已 将 “YES” 输 入 给 入 $ , 因此 正 语句 中 关系 表达 式 的 值 为 真 , 打印 出 
“YOU ARE A BOY”, 如 果 输 入 给 A $ 的 信 不 是 “YES”， 而 是 “NO”， 则 在 执行 ІР 语句 时 判断 
出 A$ 不 等 于 “YES”， 执 行 ELSE 后 面 的 语句 ， 打 印 出 “YOU ARE A GIRL”, 
注意 ， 字 符 串 中 的 空格 也 作为 一 个 字符 参加 比较 : 例如 “YES” 不 等 子 “Y ES”, Е 
者 Y 和 FE 之 间 有 一 空格 。 
【 例 8. 41 ”可 以 编 一 个 寻找 图 书 的 程序 。 在 DATA 语句 中 先 放 入 若干 本 书 的 名 字 、 编 号 
和 作者 ， 如 果 想 查询 有 没有 某 一 本 书 ， 可 以 从 键盘 输入 此 书 名 字 ， 如 有 此 书 ， 则 会 打印 出 此 
书 的 名 字 和 书号 及 作者 。 如 果 找 不 到 此 书 ， 则 打印 出 “CAN”T FIND THIS BOOK”, 
程序 如 下 : 
10 INPUT “TYPE NAME, THEN HIT ENTER”; А $ 
20 RESTORE 
30 [FOR I=1TO 6 
40 | READN,B$, C$ 
50 | IFB$ =A$ THEN I=10 
50 [NEXT I 
70 IF >= 10 THEN PRINT N, B$, C$ ELSE PRINT “CAN” T FIND THIS BOOK!” 
|» INPUT “ТО CONTINUE ТҮРЕ YES; ELSE NO. ”; D $ 
90 IFD$= “YES” THEN GOTO 10 
100 DATA 10519, “ENGLISH”, “ZHANG” 
110 DATA 20418, “PHYSICS”, “LI” 
120 DATA 30123, “CHEMISTRY”, “FUN” 
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130 DATA 10253, “MATHEMATICS”, “WANG” 
140 РАТА 46352, “CHINESE”, “TAN” 

150 DATA 52312, “PHILOSOPHY”, “SAN” 

150 END 


жою х НКОК b 


RUN 
TYPE NAME, THEN HIT ENTER? “CHEMISTRY” у^ 
30123 CHEMISTRY FUN 


TO CONTINUE TYPE YES; ELSE NO. ° *YES” x 

ТҮРЕ NAME, THEN HIT ENTER? “COMPUTER” у^ 

САМ? T FIND THIS BOOK! 

TO CONTINUE TYPE YES; ELSE NO. ? “NO” ,Z/ 

(结束 ) 

流程 图 见 图 8. 1。 

执行 的 过 程 是 : 从 键盘 输入 一 书 各 ，30 一 60 语 
句 是 一 个 循环 , 它 每 次 从 РАТА 语句 中 读 入 一 个 书 
号 给 N, 一 个 书 名 给 B$ , 一 个 作者 名 给 C$ , 每 一 次 将 A $ (键盘 输入 的 书 名 ) 和 BS (DATA 
语句 中 事先 存 贮 的 书 名 ) 相 比 ， 寻 困 第 -次 循环 时 A 平 关 B$ ， 则 潜入 第 二 组 数据 {110 语 
T. 再 看 A$ 与 B$ 是 否 相等 。 如果 相等 ， ДОЛ 1—10, RIER CRA”, 然后 使 循环 终 
赴 。 如 果 在 循环 六 次 中 AS 都 不 等 于 B$ ,也 终止 循环 ,但 此 时 I<10. 70 语 名 根据 1 是 天 小 
于 10 决 定 显示 内 容 ， 如 果 I> 一 10， 则 显示 出 书 导 、 书 名 各 作者 名 。 否 则 显示 出 “ 找 不 到 "。 
今 为 节省 篇 幅 起 见 ， 只 存 入 六 本 已, 当然 可 以 存 100 本 或 更 多 的 书 备查 , 但 50 语句 中 1 的 值 
也 应 作 相应 修改 。 

元 论 找到 或 找 不 出 此 书 ， 在 查 完 一 本 过 之 后 ， 执 行 100 语句 ， 显 示 步 : 

TO CONTINUE TYPE YES; ELSE NO. ? 
MRITA “YES”, 表示 还 要 查询 其 它 的 书 ，90 语句 检查 D$ 是 否 等 于 “YES”， 若 相等 ,返回 
执行 10 语句 , 开始 另 -- 本 书 的 查询 , 并 使 数据 区 指针 网 复 到 初始 位 置 ( 即 第 一 个 DATA 语句 
中 第 一 个 数据 之 前 ， 即 10519 之 前 ) 。 如 时 不 打 入 “YES”， 而 打 入 “NO” 或 其 它 字符 串 ， 则 
表示 大 再 查询 了 。 程 序 结束 。 

下 面 介绍 一 下 字符 囊 比较 的 规则 ， 

可 以 有 必 下 元 种 字符 串 “ 比 较 ” 的 方式 ， 

(1) 字符 串 与 字符 串 的 比较 。 如 “YES” <> “NO” 

D 字符 串 与 字符 串 变量 的 比较 ， 如 DJ$ 一 “YES” 

(3) 字符 串 变 量 与 字符 趾 变 量 的 比较 ， 如 A$ 一 B$ 

我 人 在 上 面 的 程序 中 用 到 了 “等 于 ”= ) 比较 符 . 这 是 最 简单 的 情况 。 可 以 用 于 字符 串 
比较 符 有 ， 

二 (等于) 

<> (不 等 于 ) 

> KF) 

< ОМ) 

>= 《大 于 或 等 于 ) 
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打印 和,BS.CS JERKE” 
БЕТ 


8 81 


<= 【〈 小 于 或 等 于 ) 

两 个 六 符 串 让 比较 ， 怎 么 判断 淮 大 谁 小 呢 ? 在 BASIC 中 ， 字 符 是 用 ASC1E 代码 形式 存 人 
计算 机 中 的 。 字 符 和 ASCI 码 的 对 应 关系 见 附 录 I 。 字 符 “A” 的 ASCI 代码 是 十 进 制 的 65 
5 二进制 为 01000601) ,“B” 的 代码 为 56 二进制 码 为 01000010): FARER Е НАРТ ГТА 
ASCH 代码 ， 以 ASCI 码 大 者 为 大 。 由 于 “A” 的 代码 65 JN “В” 的 代码 66, BI, “А” < 
“B, RR, Z *1” 的 ASCII 代码 为 十 进 数 49 (14000110001). Й, “1” < вА”, 

字符 大 小 的 次 序 可 以 用 下 表 简单 地 表示 (在 每 一 行 中 左面 的 小 ， 右 面 的 大 》; 

BMI # $ 2 (J) x + .,—./0123456789, <= >12G@ABCD 

EFGHIJKLMNOPQRSTUVWXYZ ` 

ГЕЛӘН ШЕ, RPE FEB WF ЯТУ, ВАВ 
不 相 网 的 字符 为 止 ， 以 这 时 的 字符 比较 结果 为 准 。 如; 

“THAT” 和 “THE”， 它 们 的 第 一 、 二 个 字符 相同 ， 而 第 三 个 字符 比较 的 结果 是 “E”> 
“A”， 则 认为 “THE”>“THAT”， 而 不 管 第 四 个 字符 或 其 以 后 字符 比较 的 结果 如 何 。 忆 此 ， 
“LAGLE” < “LANGE”, 

УЕННЫ А], MAF- FERKA, ШЕК SA. Ш 

“WHOSE” > “WHO”, “YOUR” > “YOU”. 

比较 简单 的 记 法 是 : 按 英 文字 在 字典 中 的 位 置 ， 在 后 面 的 值 为 大 ,如 在 字典 中 ， 
“THESE” 在 “THAT” 之 后 , Р, “THESE” > “THAT”, РУР HERAUS IEAA. 
BJ “8” > “в”, #19 > “р”, 

【 例 9. 5 了 有 若干 个 国家 的 名 字 ， 找 出 按 英 文字 母 排列 在 前 面 的 国 和 名。 

10 READL$ 

20 FOR 1=1TO7 

READA $ 

35 БА <1,$ THEN L$ =А $ 

40 NEXTI 

50 PRINT LS ` 

76 DATA "CHINA” "JAPAN", ,CHNANDA”,”KOREA” 

#0 DATA "ENGLAND” “FRANCE”, "AMERICA”, "INDIA” 

90 END 

RUN 

AMERICA 

今 假设 只 有 8 TBI ЖЖ Ж-ЛАР L $ REEE ИАН А taa 
A$, ЖАЛАА ВФ, ШЫ AS 的 值 代 蔡 L$ 的 原 值 , L$ 中 始终 是 已 恋人 的 国 各 中 “最 
小 ”的 ， 在 搞 行 各 次 征 环 时 L$ 和 A$ 的 值 变 化 如 表 8.1 所 示 、 
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执行 和 名 时 # во tant 
ажа 
LS A$ LS A$ 

l CHINA JAPAN CHINA JAPAN 

2 CHINA CANADA CANADA CANADA 
3 CANADA KOREA CANADA KOREA 
П САМАРА ENGLAND CANADA ENGLAND 
5 CANADA FRANCE CANADA FRANCE 
в САМАРА AMERICA AMERICA AMERICA 
7 AMERICA INDIA AMERICA INDIA 


【 例 8. 8] 


586 字符 串 数 组 


许多 BASIC (包括 M BASIC, Appksoft BASIC, TRS - 80 BASIC) 介 许 使 用 字符 囊 数组 , 其 
概念 与 数值 数组 相仿 ， 只 是 每 个 数组 元 素 中 并 放 的 不 是 数值 ， 测 是 一 个 字符 串 。 对 字符 串 数 
组 同样 用 DIM 语句 定义 数组 的 维 数 和 元 来 个 数 。 


有 一 批 国 家 名 ， 要 求 按 其 英文 字母 


SAPARA AS RECHA. 
程序 可 编写 为 ， 


5 
10 
20 
30 
40 
45 
50 
60 
70 
80 
90 
120 
125 
130 
180 
190 
200 
220 


请 把 此 程序 与 例 6. 8 数值 排序 的 程序 相 北 绞 。 


DIM 和 (10) 

FOR I=1 TO lÜ 
READ A$ (1) 

NEXT I 

FOR I=] TO 9 
L=1 
FOR J 一 I 十 1 TO 10 


IF A$ (DZA $ (1) THEN L=J 


NEXT J 


IF L<2>1THEN T $ =А$ (D: A$ (LTS LASTS 


NEXT I 

FOR 1= 1 ТО 10 
PRINT A $ (D), 

NEXT I 


DATA “CHINA” ,“JAPAN”,“PHILIPPINES” 


DATA “INDONESIA” , “SSINGAPORE”,“POLAND” 


DATA “FRANCE” ,“ITALY”,“BELGIUM” ,“MONACO” 


END 


顺序 排列 【以 A 为 最 小 ,，Z 最 大 }。 


5 语句 是 数组 说 明 语句 . 今 用 来 说 明 A 争 数组 的 大 小 【一 维 的 , 有 11 个 元 素 )。 用 法 和 数 
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值 型 数组 相同 。 


40 至 90 语句 是 排序 部 分 ， 它 和 数值 排序 的 原理 相同 〈 读 者 可 自己 比较 一 下 )。 只 是 用 字 


符 串 的 数组 元 素 代 替 了 数值 型 数组 元 素 。 
运行 记录 如 下 ， 
RUN 


BELGIUM CHINA FRANCE INDONESIA ITALY 

JAPAN MONACO PHILIPPINES POLAND SINGPORE 

【 例 8.7】 ”打印 图 案 

许多 人 希望 利用 计算 机 打印 出 由 字符 组 成 的 各 
种 图 案 ， 这 种 图 案 的 程序 实现 起 来 并 不 难 。 首 先 用 maan 
一 张 方 格 纸 或 坐标 纸 ， 将 需要 打印 的 图 案 用 毛笔 本 S 
好 。 然 后 从 最 上 面 一 行 开 始 ， 将 图 案 上 每 一 行 中 时 С 
色 的 部 分 起 止 的 格 数 记 下 来 。 在 程序 中 要 用 到 这 些 = Ся 
数据 。 i a. 

我 们 举 一 个 打印 熊猫 图 案 的 例子 。 图 8. 2 所 示 = Е 
的 图 案 共有 77 行 ， 第 一 行 的 黑色 部 分 为 从 第 31 ж КЕШ БЕ, 
到 第 38 格 ， 第 二 行 的 黑色 部 分 为 30 一 39 格 ，…… к а и 
第 六 第 的 黑色 部 分 有 一 处 , 2730M 3-1. ШШ > š 
这 些 数据 都 依次 记 F 来 《 见 下 狸 程 序 中 DATA 语句 „ШТ раг ССД 
部 分 》， —— S= 

我 们 的 思路 是 这 样 的 ， 设 -个 字符 趾 二 维 数组 。 a кс 
иы Т. ЫЫ ММА SS SSS 
витална ани ев", жал кк С 


EZH. ЖОТА ЗАН Вр, 

从 图 8.2 可 以 看 到 每 一 行 的 黑色 部 分 者 林 超 过 
60 №, 因此 数组 P$ 的 大 小 可 以 定 为 77x60。 还 有 
一 个 问题 要 解决 : 如何 将 数据 分 行 处 理 ， 例 如 第 一 
行 的 数据 为 31 和 38, 第 一 行 的 数据 为 30 和 39, R 
们 这 样 处 理 ， 在 每 一 行 数 据 之 后 加 -个 “一 1”， 表 
示 本 行 结 束 。 流 程 图 见 图 8. 3。 

根据 流程 图 可 编写 出 以 下 程序 ， 

10 DMP$ (77, 60) 

20 РОК 1=1 TO 77 


25 FOR J=] ТО 60. P$ (1,7) =” ", NEXT J 
30 READ N 
40 ТЕМ=—1 СОТО 110 


50 READ М 
60 FOR J=N TO M 
70 P$ GL, J) =”Вв” 


ea Sb везвавевав зани: ввзыёввнњеныавьвьзае 
бз чвюввеввзнышонневввыввичывныывьныаае 
баз "bude ea edu EG 
te tt 
er 
Cr TT 
Err 
ree 


rete ee 
bso 。 -BudatzeBBBB8BBBdbubd es3BBBDbddab 
ея авзиванеавиыньнынзнвавеевичанн 
енен beso yotube зый зә 
Фаввывзч Ha be ude BG 
BBsee aas eo 
EBBEN Boe 
866Baee вазаэенчочынаывавә= на 
Saeed ued georideS ын 


зичынннэвиназыюаа-ыназь db 
BSA eb 


usBB3858uu юнвичәвевезечичызыьзвиайнвенэ 
айанынынвывй#йвнзввивАн Sod 
ашышы 
ee EERE 
@аванызынәванөнзйВаавивегикчизаывоон зы 
FT 
BuaeteuagBeBB3BBBB8abbabBaaaaeuaun 
386Bedb68 昌 3BBBGBRabbd VBS 
r 
ett eT 
өвгёвавивазлевввеввьгнишәнБенвагмнын 
BadbbtcBBBBBBRBKBBEBEodbdeBeb 
вавввеввизвывзвивваввьваены 
Bad eddy 
эвзввввеньчинайван 
эвава 


[8.2 
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80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
185 


190 


185 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
999 


NEXT J 

READ N 

сото 40 
NEXT 1 
БОВ 1=:1 ТО 77 

FOR 7-1 ТО 60 

PRINT P$ (1, I); 

NEXT J 

PRINT 

NEXT I .J)=“B” 
DATA 31,38, —1, 30,39, — 1,30,39, — 1,29, 
DATA 27,30,39,41, —1,26,28,41,43, — 1,24, 
26,42,44,—1 
DATA 22,24,43,45,—1,21,23,45,46, —1 图 8 3 
DATA 20,22,46,47,—1,:9,21,42.43,47,48,—1,18,20,40,45,48,49,—1 
DATA 18,20,39,46,49,50, —1,17.19,38,47,50,51,—1 
ЮАТА16,18,37,47,50,51,—1,16,18,22,24,37,48,50,51,—-1,16,18,21,26 
DATA 37,48,50,51,—1,12,14,16,18,21,28,37,48,51,52,—1,10,16,20,29 
DATA 37,47,51,52, —1,8,16,20,29,38,47,51,52,—1,7,15,20,22,25,30,38 
DATA 46,51,52, —1,6,14,20,21,25,30,40,45,51,52,—1,6,13,20,22,24,30 
DATA 41,42,51,52,—1,6,14,20,30,51,53,—1,5,11,13,15,20,30,51,53,--1 
DATA 5,9,14,11,20,29,50,53,—1,3,14,20,29,49,54,—1 
DATA 3,15,21,28,49,54,—1,3,15,21,28,48,54, 1 
РАТА 3,16,47,54,—1,3,15,46,54,—1,3.18,45,51,—1,3,19,42,52,—1 
DATA 4,20,42,54,—1,4,23,41,54,—1,5,18,21,54,-—1.6,18,23,32,37,54,—1 
DATA 7,17,36,54, —1,8,17,19,25,35,54,—1,10,16,18,27,29,54,—1 
DATA 12,16,18,54,—1,14,16,19,55,—1,15,15,19,55, –1,15,15,19,55,—1 
DATA 14,16,19,55, —1,13,15,19,55,-—1,12,15,20,55,—1,11,15,21,55,—1 
DATA 11,16,21,55,—1,11,16,24,54,—1,10,16,25.54,—1 
DATA 10,17,30,49,51,53,—1,11,17,29,48,5],53,—1,11,17,32,47,51,53,—1 
DATA 11,18,30,48,51,52,--1,11,18,28,48,51,52,—1,11,19,27,49,51,52,—1 
DATA 10,19,25,49,50,51,—1,10,20,24,51,—1 ` 
DATA 11,20,24,51,—1,11,21,23,51,—1,11,50,—1,12,49—1,12,49,—1 
DATA 12,49, —1,13,48,—1,13,47,—1,13.47,—1,13,16,-1,13,46,—1 
DATA 71,44, —1,11,43,—1,12,40,—1,13,36,—1,14,31,—1,16,20,:—1 
END 


РБ, 


实际 上 ， 这 个 问题 也 可 以 用 一 维 数组 来 处 理 ， 处 理 一 行 打印 一 行 。 请 读者 自己 完成 它 。 


$8.7 ЯФ 


子 字 符 电 是 一 个 字符 串 的 一 部 分 。 例如 Ag$ МИХ “ABCDE”, ДІ “ВСЮ” ЈЕ А $ й7— 


AFFAR. ШИН РАР E, M АВ”, “B”, CCDE”, Е”. 
“ABCD” o-o RE А $ РНБ, 

каса касы ше рена Шык ЖЫ: Н 

(1) LEFT $ Ж 

ТЕ. 

LEFT$ С, n) 

它 的 函数 值 是 所 指定 的 字符 串 中 左面 n dE, Ep R 可 以 是 一 个 字符 串 , 也 
可 以 是 一 个 字符 串 变量 或 字符 串 教 组 元 素 , 也 可 以 是 一 个 字符 串 表 达 式 .n 可 以 是 一 个 常数 或 
算术 表达 式 。 

СЭ =. | 

10 Аф = “CHINESE PEOPLE” 

20 PRINT LEFT$ (Аф, D 

30 END 


20 ЖЕнРр1ЕЕТ$ (A$, D RIER AS ГУРУ, ЕП CHINESE。 运 行情 况 


RUN 

CHINESE 
【 例 8. 89】 有 一 批 英 文字 ， 希 打印 出 其 中 以 A 开头 的 字 。 

10 READ AS 

20 WHILE A $ <> “END” 

30 1Е1ЕЕТ$ (A$.1) = “A” THEN PRINT À $ 

40 WEND 

50 DATA “РЕМ”, “MEN”, “BOOK”, “AIR”, “CITY”, “FEET”, “COOK”, “ТЕА”, “PLANE”, 
“BUS”, “ARMY”, “END” 

99 END 

RUN 


30 语句 的 作用 是 验 查 读 入 的 字符 串 的 第 一 字符 是 不 是 “A”。 

(2) RIGHT $ 函数 

它 的 形式 为 : 

RIGHT $ ($. n) 

HER ЕЛ ЕН р ЖЛ n 个 字符 。 如 果 字符 串 长 度 不 超过 n， 则 它 得 到 的 是 整个 字符 
в. 

【 例 8. 10] ЖРА СЕЛА. ТВАЕ ЕЕ, 如 М ж 

示 男 性 ，= 表示 女性 ， 要 求 输 入 工作 证 寻 码 ， 并 统计 出 男 、 女 人 数 。 

5 M=9; Е=0 

10 FOR J=] TO 10 

:5 1МРиТСЎ 

20 IFRIGRET$ (C$, 1) = *М” THEN M=M+-1 ELSE F=F+1 

30 NEXT! 
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40 PRINT “M”; М 
50 PRINT °F—", F 
60 END 
(з) MID $ A% 
其 形式 为 ， 
MID$ (Ф, p, n) 
用 它 求 一 个 字符 串 中 从 第 个 字符 开始 的 5 个 字符 . 如 MID$ (T$, 3, 5) SRE T $ 
中 从 第 三 个 字符 开始 的 5 个 字符 。 如 不 指定 n， 出 求 出 从 第 р 个 字符 开始 的 后 面 的 全 部 字 
符 。 
【 例 8.11】 将 26 个 英文 字母 按 道 序 打印 出 来 。 
10 A$ = “ABCDEFGHIJKLMNOPQRSTUVWXYZ” 
20 FOR 1=26 ТО 1 STEP 一 1 
30 PRINT МІр$ (A$, 1, 0); 
40 МЕХТІ 
50 END 
第 -次 循环 ,1 一 26， MID$ (АФ, 26, D 的 值 为 字符“Z”, 打印 出 “Z”， 第 二 次 循环 ， 
打印 出 MID$ (A$, 25, D 的 值 “Y"”， 如 此 一 直 打 印 出 从 Z 到 入 的 26 个 字母 。 
子 字符 举 可 以 出 现在 字符 尝 表 达 式 中 作为 运算 对 象 ， 即 参加 连接 运算 。 
【 例 з. 121 
10 А$ = “THIS IS A BOOK” 
20 B$= “THAT 15 А PEN” 
30 C$ =LFFT$ (A$, 8) +RIGHT$ (B$, 5) 
10 PRINT C $ 
50 END 
RUN 
THIS IS A РЕМ 


§ 8.8 有 关 字 符 串 运算 的 函数 


(1) 测 LEN 函数 
HLEN (H 可 以 求 出 字符 串 中 的 字符 个 数 ， 即 字符 串 的 长 度 。 
【 例 8.13】 将 输入 的 十 个 字符 囊 中 长 度 为 8 的 打印 出 来 。 
5 FORI=1TOI0 
0 INPUT А $ 
20 IF LEN (A $) =8 THEN PRINT À $ 
30 NEXTI 
40 END 
(2) ASC Ў 
形式 为 : АБС (字符 串 》 
得 到 一 个 字符 串 中 第 一 个 字符 的 ASCI 码 。 如; 
10 PRINT ASC ( “B”) 
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20 A $= “BOOK" 
30 PRINT ASC (A $) 


“B” $ ABCIE 码 为 二进制 的 66, Ж 10 语句 和 30 语句 都 洒 印 它 同 -个 数值 “66”. ЯП 
RUN 
66 66 


(3) CHR $ 函数 

形式 为 CHR $ AREER) 

它 执 行 ASC 函数 的 反 转 换 , 它 的 值 是 -个 字符 , 这 个 字符 的 ASCU 码 是 СНЕ $ НЕ 
Эрн ЖОК КАК. Aam: 

10 3$=CHR$%$ (65) 

20 C$=GHR$ (32) 

30 PRINT E$, C$ 
ЯҢ Tr “А” (U83365) 和 字符 “1”( 代 码 33)。 可 以 利用 此 功能 打印 出 一 些 图 东兴 三 。 
ASCH 码 中 的 129 - 191 对 应 的 不 是 般 字 符 而 是 某 些 特殊 的 图 示 符 切 . Ж MAG DES P| A EK 
一 下 下 面 语句 的 打印 情 议 。 

10 PRINT СНЕ $ (131) 

(а) STR $ 55 

它 的 作用 是 将 一 个 数值 或 一 个 算术 表达 式 的 值 转 换 或 字符 串 形 式 。 即 将 比 数值 变 成 用 引 
七 括 起 来 的 字 答 串 。 

MEERA: STRE (ARKEL) 

09] 5.14] 


-0 Asli 


30 C$=STR$ (A): D$ =STR$ (BY 

40 PRINT C $ 

50 PRINT D$ 

60 END 

RUN 

El? 

—222 

30 行 的 作用 是 将 数 秆 111 转换 汶 “11 ЧЕШИТИ a 9—3 2 АЕ C$)， 
将 一 222 R p *—222", RERA D $ , 

(5) VAL 函数 

形式 为 VAL ( 串 表 达 式 ) 

执行 与 STR $ 函数 的 相反 的 功能 。 Ж ЗЕЛ ШОНЕН. И. A$ 一 “105"，B$ 一 
“201”， 刚 ，YAL (A$ B$) 就 得 到 数值 105261, | 

WRA VALTS), 面 T$ 叫 既 契 数字 又 有 字母 或 其 它 字符 , 则 只 有 最 前 面 的 数字 丰 效 ， 
其 它 的 字符 都 被 忽 栈 。 如 YAL С “10 DOLLARS”) 得 到 10. VAL (10 DOLLARS AND 50 
CENTS”) 也 得 到 10, 

СЯ в. 15] 街道 上 站 性 号 是 单数 在 路 南 、 倘 数 千 路 北 。 如 果 我 们 输入 一 个 地 二 ,项 户 
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\ 


由 计算 机 打印 出 某 门 牌号 在 路 北 还 是 在 路 南 。 
10 INPUT “ADDRESS, NUMBER AND STREET”; А $ 
20 C=INT (VAL (A$) /2) +2 
30 EC=VAL (A$) THEN PRINT “NORTH SIDE” ELSE PRINT “SOUTH SIDE" 
100 END 
RUN 
ADDRESS; NUMBER AND STREET? “1173 BEIJING ROAD” ,/ (输入 地 址 》 
SOUTH SIDE 
程序 中 Agq3 值 为 “1173 BEIJING ROAD”, VAL (A $) ИШ Ж 1173, FECHAR% 
值 , 故 可 以 进行 算术 运算 。20 语句 中 JNT (YAL (A$) /2) < 2 ЩИ. INT (586. 5) +2, 
BD 586x 2。C 1172. 在 30 语 名 中 ,由 于 CYAL (A $). 由 此 可 以 知道 C 是 奇数 (如果 
CEER, W|c=VAL (А)), ВТЕ “SOUTH SIDE”, 
《6) STRING $ @Ж 
形式 为 STRING $ (n, F 
可 以 得 到 一 个 由 nm 个 指定 的 字符 组 成 的 空 符 串 。 如 ， 
STRING $ (40,“x”) 表示 48 个 星 号 。 字 符 也 可 以 用 数字 代替 ， 些 时 按 ASci 码 转换 
为 字符 ， 如 STRING 和 (20, 65) 得 到 20 个 “A” 字符 。 
这 个 函数 在 制图 或 打印 表格 时 是 有 用 的 ， 例 如 打印 一 行 “ 一 ”或 “* ”等 。 
(7) INSTR 函数 
形式 为 INSTR( [n,] шс, #2) 
其 作用 是 ， 从 串 1 的 第 n 个 字符 开始 ， 我 串 2 在 串 1 中 第 一 次 出 现 的 位 置 。 串 1 AP? 
可 以 乍 字符 串 ， 或 字符 串 变 量 或 字符 串 表 达 式 。n 是 算术 表达 式 ， 如 果 省 略 n, 表示 从 串 1 中 
的 第 一 个 字符 开始 我 串 2。 妇 果 n>LEN《【 囊 1) 或 串 1 为 空 串 ， 或 串 2 我 不 到 ， 则 INSTR 函 
数 的 值 为 零 。 
LA 8.151 
10 А$ =" BASIC PROGRAMMING” 
20 PRINT INSTR (А$,” BASIC”), 
30 PRINT INSTR (AS ,” А”), 
40 PRINTINSTR (5, A$,” А”), 
50 PRINT INSTR (А$,” W”), 
60 END 
RUN 
1 2 12 ° 
20, 30, 50 语句 中 的 INSTR 函数 从 AS 中 第 一 个 字符 开始 搜索 40 语句 中 的 INSTR 函数 从 А 
$ 中 第 5 个 字符 开始 找 字 符 “A”， 它 的 值 为 12〔 而 不 是 2) 。 由 于 A$ 中 无 “W”， 因此 50 语 
вй 0, . 
【 例 8- 16] ASER., ИЧЕ, 但 记 不 清 它 的 全 名 , 只 记得 其 中 一 些 字 , 希 
望 计算 机 能 将 包谷 这 几 个 字 的 韦 名 者 打印 出 来 ， 以 便 你 从 中 选择 。 
10 INPUT ”Enter your word's; ”,X $ 
20 FOR I=] TO 3 
30 ЕЕАПА$ 
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40 IFINSTR (A$, X$) >0THEN PRINT A $ 

50 МЕХТІ 

60 DATA ” FORTRAN 77”,” BASIC LANGUAGE”,” PROBLEM SOLVING WITH BASIC” 

70 DATA ”PASCAL PROGRAMMING”,” ANSI STRUCTURED BASIC”, ” IBM PC BASIC” 

80 DATA ” STRUCTURED PROGRAMMING IN BASIC”,” LISP” 

90 END 

RUN 

Enter your word” в: BASIC 

BASIC LANGUAGE 

PROBLEM SOLVING WITH BASIC 

ANSI STRUCTURED BASIC 

TBM PC BASIC 

STRUCTURED PROGRAMMING IN BASIC 

今 假 设 只 有 8 本 书 ， 将 要 找 的 书 名 中 记得 的 单词 输入 X$ ， 然 后 用 一 个 循环 读 图 书馆 中 

已 有 的 书 名 ,每 次 读 入 的 书目 放 在 A$ 中。 如 果 A$ 中 包括 X$, M INSTR (A$, X$) Ë 
大 于 0， 此 时 将 A 再 输出 即 可 。 


3 题 


8.1 写 出 下 面 程序 运行 的 结果 ， 
10 READA$, B, C$, D 
20 PRINT C$; D, A$; B 
30 DATA “BOY”, 12, “GIRL”, 16 
"40 END 
8.2 下 面 的 程序 有 什么 错误 。 
(1) 10 READ A, B$, С, D$ 
20 PRINT A, B$, C, D$ 
30 DATA BOOK, 4, PEN, 5 
4) END 
(2) 10 A$ =HAPPY 
20 PRINT A $ 
30 END 
8.3 写 出 下 面 程序 运行 的 结果 : 
10 А $ = “THE PEOPLES > 
20 B$ = “США” 
30 C $ = “REPUBLIC 
40D$=A$+C$+ “OF” +B $ 
50 PRINT D$ 
60 END 
8.4 写 出 下 面 比较 的 结果 。 
(1) “BOOK” Яр “BOY” (8) “HIT” 和 和 “BOX” 
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(8) "1284" Яп “i321" (4) “CAT” Я “вос” 
(T) “B12" 和 “B21” (6) *10241” # “1024” 
(2) “WHAT” {1 “YOUNG” (8) *TIB" 和 “123” 
8.5 某 一 党 生 的 每 - "JSE К, 学 时 种 成绩 〈 A, B, C D 等 ; 已 分 别 表示 在 DATA 
语句 中 。 现 要 求 单独 地 把 得 О Ж СКАН 的 课程 打印 出 来 。 请 编 出 此 程序 。 
100 РАТА “ENGLISH”, Я, *A", “CHINESE”, 2, “С” 
110 РАТА “STAT”. 3, “В”. “PHYSICS”, 4, “D” 
120 DATA “PHILOSOPHY”, 2, “А”, “CALCULUS”, 4, "D" 
8.6 写 出 直面 型 序 的 运行 结果 。 
$ 10. 85 ЕАСН,ТНЕ PROFIT MARGIN 15 D. 118” 
20 B$ =LEFT$(A$.2)2 83.50" TMIDS СА $ ,7,28) +0, 105” 
30 PRINT A $ 
10 PRINT D$ 
50 -END 
8.7 WEIT Aa $E., EA “ABCDEFGHIJKLM”, 
WIETRZE RERNE: 


{DEEFT$ А $ ,3) (DRIGHT $ iA $ ,3) 
MIDS$ (A $ ,1,2) MDS (А $ 6,3) 
{BRIGHT $ (“ABCDE",3) (6DLEFT $ C“HUK”.3) 


8.8 下 面 是 一 个 查 职 工 工资 的 程序 。 请 写 出 当 ， 

D 键盘 输入 的 名 字 为 “CHIN” 时 ; 

D 键盘 输入 的 省 字 为 “SU” Б]; 

(3) ЖЫ A Е “END” Hf; 

程序 运行 的 结果 。 ` 

1D INPUT “ТҮРЕ МАМЕ ТО FIND PAY"; B $ 

20 IF B$ = *END” THEN END 

30 FOR (=1 TO 6 

10 READA$ 

50 18$ =0ЕРТ (A$. 4) THEN :一 10 

60 NEXTI 

70 IF1 =-= ID THEN PRINT “CAN'T FIND NAME” ELSE PRINT LEFT Ф (A$, 4); *5 PAY B”; 

MDS, 8, 3); “YUAN” 

100 RESTORE 

110 РВІМТ, INPUT “TYPE NAME TO FIND PAY”; B $ 

120 сото 20 

180 РАТА “FUNG 62", "LING 106", “CHIN 89” 

140 DATA “WANG 46", “TA-N 78”, “LUNE 69” 

150 END 

8.9 输出 Р, 然后 输入 一 个 需要 播 入 的 字符 , 并 指定 该 字符 应 插入 的 位 置 。 要 求 把 
该 宁 签 插入 到 字符 串 中 指定 的 位 置 上 ; 不 断 重复 此 过 吾 直 到 输入 指定 的 位 置 号 为 “一 1” 时 为 
E. 扫 炎 插入 字符 的 总 数 不 超 半 初 巡 时 字符 的 个 数 ， 每 容 搬入 一 个 字符 。( 混 示 : 可 以 先 把 字 
许 串 放 入 一 个 字符 串 数组 中 ， 在 个 数组 施 素 中 存放 一 个 字符 ,然后 进行 插入 。 也 可 以 应 用 
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有 关 的 字符 串 函 数 和 字符 中 表达 式 完成 插入 操作 ,) 

8.10 把 一 个 字符 串 中 的 字符 拆 开 ,依次 逐个 放 入 X$ 数 组 的 每 个 数组 元 素 中 ( 纯 每 个 中 
ЯЙ). 

8.11 将 本 章 例 8.7 ОТЕТ) BFAI- ЭП АЗЕ. 

3. 12 特例 8. 7 程序 改 为 不 用 数组 来 实现 题 有 要求， 用 了 字符 吕方 法 实现 。 

8.13 自己 画 出 一 个 图 突 ， 用 自己 编写 的 程序 打印 出 此 图 案 。 

в. 14 将 两 条 曲线 打印 在 同一 坐标 上 。 

y 1 一 sin 了 

y 2 一 cos (2 z +30°) 
要 求 = 轴 在 第 40 列 ， 在 40 列 打印 一 条 虚线 (WARED ШШ АДЕН 40, ENTE 
~ 个 点 。 71 用 “* ”表示 ，92 F) “0” 表示 。 要 求 用 字符 申 数组 实现 。 

8.15 将 上 而 的 打印 结果 转 90"， 妈 z 轩 与 打印 机 走 纸 方向 一 下 ,x 轴 与 行 药方 向 -至 (与 
ANJRAH- 

8.16 ADEREN RRR НОВ ЗЕ. 如 给 定 A $ — “1 have a computer”, Ë 
RE “а” 删 去 ， 国 再 在 “a” ЖЕШ ЕШ. “шее”; EH “computer” FMA AFN 
з” m *”, 

8.17 译 密码 。 为 保密, 党 将 电报 改 用 密码 输出 ， 今 规则 如 下 , H “А” MO “F”, “B” 改 
为 “G”， 即 将 一 个 字母 改 为 它 后 面 第 5 个 字母 。 对 最 后 TERRAIN: V => “A”, 
SW” > “B” >, “KP = “С”, “YU => “р”, “Z” > FE”, 如 “BASIC” 的 密码 应 为 
“GFXNH”。 编 一 程序 将 输入 的 一 行 字符 攻 月 密码 输出 《只 改 字母 ， 对 非 字母 字符 按 原样 给 
出 )。 
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第 九 章 ”屏幕 控制 和 作 图 


BASIC 除了 提供 数值 运算 和 字符 处 理 钓 功能 以 外 ,还 提供 芭 摹 控制 功能 和 作 图 功能 ,允许 
用 户 方便 地 控制 在 屎 幕 的 不 同位 置 上 显示 字符 或 图 形 。 可 汶 和 用 屏幕 控制 功能 设计 “ 莱 单 ” 
(RETE, 以 加 强 与 用 户 的 “友好 性 "。 利 用 医 形 功 能 可 以 用 曲线、 竖 太 图 , 图形 形 式 输出 
各 种 信息 ， 以 潜 加 形象 性 。 许 多 领域 〈 例 如 计算 机 游戏 、 计 算 机 辅助 设计 、 计 算 机 辅助 教学 
等 ) 都 需要 用 到 图 形 功能 。 ` 

图 形 或 医 象 是 一 种 能 迅速 且 精 确 地 传递 信息 的 有 效 方法 ,容易 被 人 们 理解 和 记忆 。 利 用 
计算 机 来 绘 向 各 种 图 形 、 图 表 已 咸 为 各 个 领域 的 重要 手段 ， 例 如 ,计算机 辅助 设计 和 辅助 制 
BË (CAD/CAM), 计算 机 模拟 , MRAM, 志学 信息 处 理 及 地 图 绘 揣 .企业 管理 、 办 公 室 自动 
化 以 及 计算 机 辅助 教学 《CaAD 等 。 

IBM -PC 机 提供 两 种 屏幕 显示 方式 ， 即 文字 显示 方式 和 图 形 显示 方式 ， 或 称 字 蔡 显示 模 
式 和 图 形 显示 模 示 。 在 文字 显示 模式 下 ， 显 示 的 最 小 单位 是 字符 ， 用 户 只 能 霜 字 符 和 专用 线 
条 来 组 全 图 形 , 显然 是 很 粗糙 的 . 在 图 形 显示 模式 下 , 显示 的 最 小 单位 是 显 象 管 的 扫 措 点 ,并 
且 志 以 指定 任何 一 个 点 的 显示 颜色 。 因 而 ， 通 过 精心 设计 能 薪 得 复杂 而 美观 的 彩色 或 黑白 图 
案 。 

IBM -PC 机 有 的 配置 了 彩色 /图 形 适 配 喝 , 给 绘 看 形 色 习 形 提供 了 很 好 的 条 件 , 本 章 的 所 
有 例题 都 是 在 此 条 件 下 做 的 。 但 是 ， 大 部 分 例题 〈 除 例 9. 3 和 例 9. 5 Ж) 也 可 以 在 只 配 黑白 
图 形 送 配 器 能 PC 机 上 运行 , 为 了 清楚 地 显示 出 黑白 图 形 , 可 将 程 序 中 彩色 语句 去 掉 和 鲁 写 一 
下 显示 器 的 级 横 比 就 可 以 了 。 A, 这 一 党 的 内 容 对 那些 兵 备 有 单 色 图 形 适 配器 PC 机 的 读者 
也 是 很 有 用 的 。 为 了 了 解 计算 所 绘图 的 基本 原理 ， 先 介绍 计算 机 屏幕 的 控制 。 


89.1 屏幕 控制 语句 


9.1.1 LOCATE 语句 和 WIDTH 语义 


H WEZ BASIC 编辑 一 个 源 程 序 时 ， 屏 幕 显示 的 状态 就 是 字符 显示 模式 〈 存 时 也 称 文本 
FR. 可 以 输入 源 程序 或 壕 行 编辑 、 收 改 、 运 行 源 程序 的 各 种 操作 。 异 幕 在 此 模式 下 ,可 以 
显示 字符 25 行 ， 每 行 所 个 字符 或 80 个 字符 , 这 可 以 由 宽度 滞 句 WIDTH RRE, EHER 
是 ， 

WIDTH n 

Jer, n 的 数值 可 以 是 40 或 80。 

车 n 是 80， 那 么 屏幕 每 行 显示 90 个 字符 ， 一 个 屏幕 最 多 给 出 25X80 (2000) 个 字 
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符 位 置 ， 这 些 不 同 的 字符 位 置 将 屏幕 分 成 一 个 个 心 小 的 

人 矩形, ХИНЕН. RITA SIE 

1 到 35， 行 ! 在 屏幕 的 最 上 部 (顶部): 行 25 在 屏幕 的 en 

最 下 部 ОКА (这 是 一 般 BASIC 用 来 显示 功能 键 的 地 

Ж. 列 编号 为 1 到 80, 最 左边 的 为 列 1, 最 右边 的 为 列 

80， 汶 样 就 可 以 对 屏幕 上 的 每 一 个 小 矩形 的 位 置 确定 下 7 

Жж, КАШИ 9. ! 所 示 。 kx. 
我 们 可 以 用 定位 语句 LOCATE 来 确定 屏幕 光标 的 PPR 

тщ. CHERA: 
LOCATE[ «01 1. С ( 烈 )] Г. L. WIL Т deg] L, Г (未 线 )] 攻 ] 
语句 后 面 这 些 参数 的 有 效 值 和 含义 请 见 表 9. 1。 


д 
‚ей 


Жжэ.1 
$ а ] 有 Ж ж m 
行 [~25 ЖАКЕН е КТЖ 
ЕД 1 一 40 或 1 一 80 移动 光标 到 所 指定 的 殉 数 
方式 | 0 或 1 0 炮 灭 光标 ;1 点 亮光 标 
ев 0-7 0-18 ` ан 
жа 0-7 3 0-12 А 56 k Hit SR 


其 中 ,“ 行 和 列 ” 可 以 用 算术 表达 式 表示 ， 取 值 如 表 9. 1 所 了 示 ， 用 来 确定 字符 显示 方式 下 的 光 
标 位 置 ;“ 产 式 ” 用 来 确定 光标 是 否 可 见 ， 取 0 表示 不 可 见 ， 取 t заг, нажа" 也 
可 以 算术 表达 式 ， 其 值 用 来 确定 光标 面积 “或 高 度 ) 的 大 小 。 

通常 BASIC 下 的 光标 是 一 根 扫 高 线 ， 其实 屏幕 上 的 每 个 字符 可 以 由 8 祖 (0—7) ARR 
{具有 彩色 图 形 适配器 的 PC 机 ) 组成， 也 可 以 由 14 根 “0~13) HRR {具有 黑白 图 形 适 配 
Ж) 组 成 。 线 0 在 一 个 字符 的 顶部 。 B|: 

LOCATE,,, 0, 7 
ЖУА ВОК, ШЕН E. -ARH WE JH АОИ УЕ 
句 ， 但 你 可 以 省 略 一 些 不 需要 改变 的 参数 ， 上 面 这 名 就 是 一 个 例子 ， 省 略 了 “ 行 ”“ 列 ”和 
“方式 ” 也 就 是 光 认 的 位 置 和 方式 照 原来 的 不 变 ， 只 改变 了 光标 的 高 度 RED HKA LO- 
САТЕ 语句 不 会 影响 在 屏 医 上 已 经 出 现 的 字符 , 如 果 移动 光标 到 已 经 出 现 的 字符 上 , 那么 光标 
只 是 在 该 字符 上 闪烁 画 已 ， 不 会 改变 那个 字符 。 

当 你 用 LOCATE 语句 定位 了 光标 位 置 ， 你 就 可 以 用 PRINT 语句 在 指定 的 位 置 上 显示 字 
Bh. 数字 或 其 爷 一 些 专 用 的 字符 。 
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9.1.2 CSRLIN 和 POS 函数 


PPS Т ЖК. 某 种 意义 上 来 说 , R LOCATE 诸 句 相反 ,它们 不 是 移动 光标 到 指定 的 位 置 ， 
而 是 把 当前 光标 所 在 的 行 秒 列 保存 起 来 。 例 如 你 要 吉 一 个 程序 在 执行 输出 能 过 程 市 在 25 行 
上 输出 一 个 信息 以 后 再 在 屏幕 输 世 的 原来 地 并 《〈 即 显示 25 行 信息 之 前 的 地 方 ) 继续 输出 ， 可 
ШП Fr Br, 

100 ROW=CSRLIN 

HƏ COL—POS (0) 

12D LOCATE 25, 1 

130 PRINT MESSAGE 

140 LOCATE ROW, COL 

CSRLIN 责 数 记录 了 光标 所 在 行 的 位 置 ,而 POS етіс Г EES bJ E Т.Н 
分 别 赋值 给 变量 ROW A COL、 而 后 定义 光标 位 时 到 25 行 的 第 1 为， 输出 信息 (MESSAGE) 
Fr. 140 语句 的 LOCATE 使 光标 返回 到 原来 的 地 方 。 


9.1.3 KEY OFF #: KEY ON #4 


KEY OFF 语句 用 来 关闭 第 25 行 功能 键 的 显示 , Ы ЕЗ УТЕ Н ЖЕЕ aki h НЧ ЛА. 
需要 重新 恢复 功能 键 的 显示 时 用 KEY ON 语句 。， 


9.1.4 CLS А 


它 是 时 来 清除 屏幕 并 演 光 鲜于 屏幕 的 左上 第 (字符 显示 模式 ) ПВСУ MEE 
RAA. 

TENE, SAU ERTAN. 

AL 在 计算 机 屏幕 上 显示 一 个 表格 ， 并 要 求 在 计算 机 上 填写 此 表格 。 这 举 , 光标 
就 好 象 是 “一 支 笔 ”, 用 户 只 要 通过 键盘 输入 站 写 ， 每 填空 一 项 ， 按 匡 车 键 以 后 光标 就 应 该 白 
动 “ 卡 ”到 下 一 项 的 开始 位 置 ，- 直 到 全 部 项 习 填 写 完 毕 ， 例 中 要 求 屏幕 在 适当 的 位 置 显示 
如 下 表格 却 填 写 7 ip £ 和 名字、 性 别 ， 年 龄 . 地 址 、 域 市 名 、 旺 政 编 权 和 所 话 号 码 )。 


Name, _ Sex; Age; 
Address, 

City; Zip — собе: 

Phone: 

程序 和 运行 结果 如 下 : 


10 REN Using LOCATE to create a Sereen Format 

100 KEY OFF; CLS; LOCATE., 0. 7 

HO READ NFIELD 

120 FOR I—1 TO NFIFLD 

130 READ LIN, COLA, LABET.$ , TEXT $ COLB 
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140 LOCATE LIN, COLA 

150 PRINT LABEL $ ; ТЕХТ $; 

160 МЕХТІ 

170 RESTORE; READ NFIELD 

180 FOR 1=1 ТО NFIELD 

190 READ LIN, СОГА, АВЕ $, ТЕХТ$, COLB 

200 LOCATE LIN, COLB 

210 INPUT””, RESP $ 

220 NEXT I 

230 LOCATE ,,, 7, 7; KEY ON 

1000 DATA 7 

1010 РАТА 5, 3, #Name;”, “aa u- === me u y 
1020 DATA 5, —", 32 

1030 РАТА 5, 43 

1040 РАТА 7, 3, “Address,”, *. 
1050 РАТА 9, 3, “Сіу;”, “— 
1060 РАТА 9, 28, “21р code,” 
1070 DATA 11, 3, “Phone”, “1 2 -~ ”, 10 
1080 ЕМО 


Мате: — Bu jia-qi. -_- --—— Sex; М______Аре; —48__.. 
Address; —149# Yang Chang Road --—. - 
City; -Shanghai -—— —— .Zip-code: _200072_—-— 
Phones; - .625744__ 

OK 

ЖР, 变量 NFIELD 代表 填写 表格 的 总 项 数 ; LIN 代表 行 ; СОГА RRF]; LABEL $ 代表 
项 目 名 称 ; TEXT $ 代表 填写 内 容 的 下 划 线 ; COLB 是 填 邱 项 光标 的 起 始 位 置 ; RESP $ 代表 从 
键盘 输入 的 填写 内 容 。 

100 语句 的 作用 是 取消 屏幕 第 25 行 的 功能 键 显示 、 清 展 、 并 设置 一 个 长 方形 的 光标 ; 
110~160 语 外 在 屏幕 上 制作 表格 ; 语句 180~220 从 键盘 输入 填写 表格 ; 语句 230 恢复 光标 成 
一 条 扫描 线 角 第 25 行 的 功能 键 既 示 ; 语句 1000 一 1070 为 用 DATA 语 多 提供 的 工作 数据 ， 改 
变 其 值 ， 就 可 以 得 到 不 同 的 表格 形式 。 

I 例 9.2】 在 屏幕 上 画 一 个 举 标 ， 在 重 直 轴 上 标 以 Profit， 在 水 乎 轴 上 标 以 Month。 程 
序 如 下 : 

10 REM Using LOCATE to create COORDINATES 

20 CLS; WIDTH 80; LOCATE 1, 1 

30 PRINT “Profit” 

40 LOCATE 6, 40 

50 PRINT “Month” 

60 FOR J=1 TO 4 

70 LOCATE i, 7: PRINT СНЕ $ (179); 

80 МЕХТ1 


90 LOCATE 5, 7; PRINT СНЕ $ (192); 


Pront 
100 FOR J=8 ТО 40 
10 LOCATE 5, J, PRINT СНЕ $ (196); 


120 МЕХТЈ Month 
130 END 
运行 结果 如 图 9.2 所 示 。CHR $ (179) 是 一 图 9.2 
条 短 直 线 “,”CHR $ (192) Æ “|”, CHR $ 319 о 
(196) 是 横 短线 “一 ”。 | 


хеми 


以 上 两 鲍 都 是 在 字符 显示 模式 下 进行 的 ， 这 
是 在 引入 BASIC 时 就 设置 好 的 。 字 符 显示 模式 
下 ， 能 显示 各 种 ASCH 码 字符 及 一 些 专用 图 形 符 
F, #2544 WERI). Kas 
但 怎样 从 字符 显示 模式 转 入 图 形 显示 模式 үка 
(或 反之 )? 这 要 用 到 SCREEN 语句 。 


9.1.5 SCREEN 语句 


文本 方式 能 控制 字符 的 工作 模式 ， 而 图 形 显 
FAR 《或 简称 图 形 方 式 ) 能 控制 扫描 点 (也 称 象 素 或 象 元 ) 的 工作 方式 ,一 幅 图 画 ， 实 际 
上 是 由 成 千 上 万 个 象 元 组 成 的 , 所 以 屏幕 上 能 够 显示 出 来 的 象 元 个 数 , 就 决定 成 象 的 质量 。 在 
图 形 模式 下 , 又 有 中 分 辩 率 和 高 分 辩 率 之 分 . 中 分 辩 率 工作 模式 时 , 每 屏 可 显示 200 条 线 , 每 
一 条 线 则 有 320 个 点 ,所 以 中 分 辩 率 模式 时 的 全 忌 象 元 个 数 为 200X 320 个 。 高 分 辩 率 时 ,每 
靛 也 是 显示 200 条 线 , 但 每 一 条 线 有 640 个 点 组 成 , 这 时 全 屏 象 元 总 数 是 200X640 个 ,此 外 ， 
中 分 辩 率 时 ， 每 个 象 元 可 以 有 4 种 不 同 的 颜色 ， 而 高 分 辩 率 时 ， 每 个 象 只 是 有 黑白 两 色 。 屏 
幕 上 的 每 个 象 元 都 有 一 个 坐标 位 置 ， 所 在 行 是 用 编号 0 一 199， 列 的 编号 用 0 一 319 (中 分 辨 
率 ) 或 0 一 639 (高 分 辨 率 )， 其 0 点 坐标 如 图 9. 3 所 示 。 
SCREEN 语句 的 简化 格式 是 : 
SCREEN [ 《模式 )]，[，( 彩 色 )] 
其 中 模式 为 显示 器 工作 的 选择 参数 ， 为 整 型 表达 式 ， 其 值 为 : 
0 ”选择 字符 显示 模式 ; 
1 ”选择 中 分 辩 率 图 形 显示 模式 ; 
2 ”选择 高 分 辩 率 图 形 显示 模式 。 
彩色 用 来 选 定 是 黑白 或 彩色 显示 ， 规 定 其 值 为 ， 
{887 RY O H, RARR. 
中 分 辩 率 图 形 MARS D 时 ， 彩 色 显示 。 
+ (2887 ( 即 模式 为 0) 时 ， 彩 色 显示 。 
中 分 辩 率 图 形 〈 即 模式 为 1) M, RAER. 
当 高 分 辨 率 显 时 〈 即 模式 为 2 ， 不 管 彩色 为 何 值 ， 都 是 黑白 显示 .( 见 表 9.2). 
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模 色 
式 > 参 m ° Е] 
0 О жата EEFE 
1 ФАР 彩色 图 形 黑白 图 形 
2 (高 分 类 ка 黑白 图 形 
SCREEN 语句 的 所 有 参数 均 可 省 略 ， 缺 省 参数 保持 已 经 执行 过 的 当前 什 。 例 ， 


10 screen O, 1 

20 screen 1 

30 screen, 0 

40 screen 2 

例 中 10 语句 ， 选 定 模式 为 0， 彩色 为 1， 因此 是 字符 彩色 显示 模式 。20 行 语句 中 选择 模 
式 为 1, PERE, 因此 仍 保持 原来 彩色 为 1 的 值 , 这 时 显示 器 为 中 分 辩 率 黑白 显示 模式 。30 
语句 保持 模式 为 1, 选择 彩色 为 0, 因此 显示 器 成 为 中 分 辩 率 ,彩色 图 形 显示 模式 。40 语句 选 
择 模式 为 2， 时 屏幕 为 高 分 辨认 显示 模式 ; 所 以 不 论 彩 色 的 值 如 何 〈 此 时 为 0)， 均 为 黑白 显 
示 。 顺 便 提 - 一 下 ， 在 图 形 模式 下 ， 也 可 用 WIDTH 语句 ， 此 时 WIDTH 40 相当 于 SCREEN 1, 
WIDTH 80 相当 于 SCREEN 2, 

以 上 选择 ， 只 是 使 显示 器 处 于 某 种 工作 模式 。 至 于 屏幕 上 显示 出 什么 颜色 的 图 形 和 背景 
OE), AEH COLOR 语句 配合 使 用 。 而 COLOR 语 名 在 字符 显示 模式 下 和 图 形 显 示 模 式 下 
有 不 同 的 含义 ， 所 以 下 面 分 开 叙 述 。 


9.1.6 字符 显示 模式 下 的 COLOR jË #J ` 


它 的 格式 是 : 

COLOR [ ЯЕ) Г. ERME] 

其 中 ; 字符 颜色 是 算术 表达 式 . 其 值 定 义 字符 的 显示 颜色 , 取 值 为 0~31, 具体 规定 为 表 
9.3 所 示 。 


39.3 

е 5 б 省 色 号 E 名 

° x в 7 х 

1 Ж 9 RE 

2 є 10 浅 绿 

3 # "N" RE 

4 红 12 浅 红 

5 洋红 13 REA. 

5 L. 14 й 

7 н 15 高 亮度 白 
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16—31 在 原 颜 色 0 一 15 的 基础 上 加 16， 定 义 字符 的 彩色 为 闪烁 方 式 ， 
背景 颜色 也 是 算术 表达 式 , Не ХИК, 取 值 范围 是 0 到 7。 具体 规定 为 表 9. 4 
所 示 。 


LETI 
в 5 а 省 色 s 6 名 
a жЕ 4 Ев 
1 КЕ 5 洋红 
2 绿色 6 ке 
5 青色 7 Кк 


Саз] 在 彩色 图 形 适配器 的 PC 机 上 显示 16 种 不 同 欧 字符 颜色 和 8 Fh 2 EJ МН 
ЖЕ. Вр НЕ. ， 

* * ж ж Good Morning ж * + ж ж 

程序 如 下 ， 

10 REN Using COLOR (Text Mode) 

20 SCREEN 0. 1 

30 FOR1=0T0 15 

40 FOR J=0 TO 7 


50 COLOR I, J 
60 PRINT “* x жок x x x x > ж ж Good Morning # x юж кх w ww а <" 
10 FOR K=1 TO 100. NEXT K 

80 NEXT? 

8 STOP 

90 NEXT E 

100 SCREEN 0, 0 

10 ЕМО 


20 行 语 句 设置 屏幕 为 字符 显示 模式 ,彩色 显示 ; 30—90 行 语句 显示 不 同 浓 景 下 的 16 种 不 同 
颜色 的 字符 ;而 85 行 STOP 语句 用 交 和 暂停， 便于 观察 ， 继 续 运 行 接 F5。 

当 用 只 具有 单 色 (黑白 图 形 适 配器 时 , 利用 COLOR 语句 不 能 产生 彩色 , 但 可 以 产生 内 
烁 、 负 象 、 消 隐 以 及 加 上 下 好 线 等 不 同 的 字符 显示 。 字 符 配 色 取 值 也 是 0 一 31， 但 其 中 

0 黑色 

1 加 下 划 线 的 户 色 字符 

2-7 白色 

上 述 数字 0 一 7) 加 上 8 得 到 相应 的 高 亮度 色 , 如 9 为 给 出 带 下 划 线 的 高 亮度 白色 字 笃 ， 
15 给 出 高 亮度 白色 , 但 不 能 给 出 高 亮度 黑色 .上 述 数字 (0 一 15) 加 上 16, 定义 字符 闪烁。 ТЇ 
景 颜 色 取 值 0~7， 其 中 0—6 为 黑色 ,7 为 户 色 .。 例 9. 4 是 字符 加 亮 , NE NR, MERE 

【 例 9. 4] 核对 口令 

有 些 计 算 机 ， 用 户 在 开机 以 后 ， 要求 核对 预先 已 告 许 计算 机 的 口令 本 题 假 定 你 的 口令 
是 “GOoOD?” 或 “goed”， 其 程序 段 如 下 ， 
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程序 中 , 没有 SCREEN ЕЈ, 那么 就 认为 是 SCREEND, 0, 即 字符 显示 模式 , НЕШИР. 
10 行 语句 清 屏 ，130 行 语句 中 COLOR 语句 的 字符 颜色 是 7《 白 色 ?， 背 景 颜色 是 (RA), 
所 以 此 中 的 字符 显示 是 普通 的 字符 显示 ,页 140 行 语句 中 的 COLOR 语句 ,其 
CBD 74-8). 是 高 亮度 白色 ,所 以 这 一 行 显示 出 的 字符 PASSWORD 是 高 亮度 白色 , 以 引起 开户 
的 注意 ，150 行 语句 又 恢复 普通 显示 。 所 以 这 三 行 在 屏幕 上 输出 姓 下 内 容 : 


REM Cheek password 
CLS; PRINT: PRINT 
COLOR 7, 0, PRINT “enter your” 
COLOR 15, 0; PRINT “PRASSWORD” 
COLOR 7, 0, PRINT “here.” 
COLOR 0, 0 - 
INPUT PASSWORD S 
WHILE PASSWORD $ < > “GODD” AND PASSWORD $ <> “good” 
1=1+1 
сїз 
IF I=$ THEN COLOR 0, 7; PRINT “you ате illegal uaer!”; COLOR 7, 0, ЕМО 
COLOR 31, 0; PRINT “Wrong Password” 
COLOR 7, 0: PRINT “Enter your PASSWORD again... . ” 
COLOR 0, 0. LOCATE 3, 24 
INPUTT PASSWORD $ 
WEND 
CLS, COLOR 0, 7 
PRINT “Program coninue. ....” 
COLOR 7, 0 


enter vour 


PASSWORD TARDO 


here; 


° 


150 行 的 COLOR 语句 中 ,其 


Enter your PASSWORD again. .... 


序 运行 到 240 行 语句 ， 


因为 , 此 时 又 要 求 作 输 入 口令 , 那么 叉 要 通过 COLOR 语句 设置 输入 字符 是 不 可 见 的 , 所 以 程 
中 的 COLOR 语 甸 的 字符 颜色 种 背景 颜色 又 都 是 0， 表 示 输 入 字符 不 
ER 车 你 的 口令 连续 5 次 输 错 , 那么 程序 运行 至 210 行 语系, 此 时 COLOR 语句 的 字符 颜色 
&0 е), ЧҮ? (HE) МИША (KA) ан. 


字符 颜色 是 15 


字符 颜色 和 人 背景 颜色 都 是 0， 即 黑色 ， 所 以 此 后 输入 的 字符 
《或 给 妆 的 字符 ) 在 屏幕 上 是 看 不 出 来 的 ，170 行 请 句 要 求 从 钠 盘 输入 口令 ， 一 般 这 个 口令 是 
保密 的 ， 只 有 用 户 自己 知道 ， 此 时 .你 对 你 自己 的 口令 要 热 记 ， 千 方 趟 要 记 错 了 ， 医 为 记 错 
了 就 “ 进 不 去 ”给 出 的 口令 在 屏幕 上 不 显示 , 车 输入 口令 跟 预 约 的 口令 不 符 , 那么 程序 运行 
到 220 行 语句 ， 此 时 COLOR 语句 中 的 字符 颜色 是 31 (EJ 15 十 16), 是 四 亮 自 色 再 加 闪烁 的 显 
лї. 所 以 给 出 的 “Wrong Password” 是 加 亮 白色 且 加 央 烁 ， 尽 也 获 告 . 接着 义 用 普通 显示 要 求 
你 重新 输入 口令 的 字样 出 现在 下 一 行 ， 这 二 行 屏 幕 上 输出 内 容 是 - 


Wrong Password 


you are illegal user! (非法 用 户 ) 

Ok 
后 面 再 用 COLOR 语句 恢复 普通 显示 , 程序 运行 结束 。 这样 你 就 没有 “进入 ”, 假定 在 5 次 中 ， 
有 -- 次 是 正确 的 ， 那 么 程序 执行 270 行 语 名， 以 负 象形 式 显示 出 : 

Program continue... . . 


290 行 恢复 普通 显示 ， 程 序 继续 执行 ， 表 明 你 已 “进入 ”。 


` 


9.1.7 图 形 显示 模式 下 的 COLOR 语句 


在 中 分 辨 卒 图形 显示 模式 下 ,屏幕 上 的 每 个 点 , 都 可 以 有 多 种 颜色 ，COLOR 语 包 在 图 形 
显示 模式 下 的 格式 为 : 

COLOR [ 《背景 颜色 )] L MEAS] 
其 中 参数 “背景 颜色 ”是 一 整 型 表达 式 ， 取 值 0~15 之 间 ， 其 数值 所 对 应 的 颜色 跟 字 符 显示 
模式 下 的 字符 颜色 相同 。 配色 器 号 用 以 选择 配色 器 是 0 或 !, 为 整 型 表达 式 。 当 取 侦 数 时 ， 选 
定 0 号 配色 器 ， 当 取 奇 数 时 ， 选 定 1 号 配色 器 。 在 中 分 辩 率 图 形 显示 模式 时 ， 每 个 象 元 可 以 
有 4 种 不 同 的 彩色 码 ， 即 0，1，2 和 3, 它们 所 显示 的 颜色 ， 由 程序 中 COLOR 语句 选 定 的 配 
色 器 决定 ， 具 体 规定 为 表 9. 5 所 示 。 


表 9.5 
жав 0 号 配 包 器 1 号 配色 器 
B КҮТ наны 。 
1 绿 # 
2 红 洋红 
3 黄 白 
【 例 9. 5] ”在 中 分 辩 率 图 形 模式 下 显示 16 种 不 同 的 屏幕 底 色 ,程序 如 下 : 


5 Draw 104 Using COLOR (Graphical Mode) 

10 SCREEN i, 0 

20 FOR 1-:0 TO 15 

30 COLOR 1, 1 

40 FOR J=1 TO 1000; NEXT J 

50 МЕХТІ 

60 SCREEN 2 

70 END 
此 例 中 ，10 行为 设置 屏幕 为 中 分 辩 率 彩色 显示 模式 ; 20—50 行使 屏幕 底 色 由 黑 、 蓝 ……- ~ 
变 到 白色 〈 亮 白 )，40 行 语句 起 延 时 作用 ， 以 便 在 底 色 变换 时 停留 片刻 ， 便 于 观察 。 


= 
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$9.2 ей R 


9.2.1 BAHA 


MS BASIC 在 显示 器 处 于 图 形 模式 下 ， 有 两 条 画 点 语句 ， 即 PSET 和 PRESET 语句 。 

(1) PSET 语句 

它 的 是 格式 是 : 

PSET (2,0), Г, <Ж >] 

其 功能 是 “点 亮 % (x,y ) 坐标 点 .z fly 是 算术 表达 式 ， 其 取 值 范围 不 可 以 超过 屏幕 坐标 
系 所 允许 的 值 ， 也 就 是 说 ， 

HRR 0 е 319 0< у <199 
高 分 辩 率 时 Os z<639 0< y 199 

“彩色 ”是 该 点 象 元 的 彩色 代码 , 也 就 是 我 们 在 第 一 节 里 所 提 到 的 (图 形 显示 模式 下 的 COLOR 
语句 中 ) 那个 彩色 码 。 当 显示 器 处 于 中 分 辩 率 时 ， 取 值 为 0 到 3; 高 分 辩 率 时 ， 取 值 0 或 1。 
其 内 定 值 ( 即 缺 省 此 项 时 ) 中 分 辨 率 是 3， 高 分 辨 率 是 1。 但是， 被 点 亮 的 象 元 究竟 是 什么 颜 
色 ， 还 与 COLOR 语句 中 配色 器 的 选 定 有 关 ， 请 查阅 上 .一 节 的 图 形 显示 模式 下 的 COLOR 语句 
以 及 表 9.5. 

(2) PRESET 语句 

它 的 格式 是 : 

PRESET (z,y) [，<< 彩 色 >- 

其 功能 是 “ 擦 ” 去 (x,y ) 坐标 点 。 实 际 上 它 是 用 屏幕 底 色 画 点 ， 语 句 中 各 参数 的 含义 同 
PSET 语句 ， 彩 色 缺 省 时 其 值 为 0， 也 就 是 说 与 底 色相 同 。 

【 例 9. 6〗 以 屏幕 模 拟 天 空 ， 画 一 幅 “ 和 群星 闪烁 和 流星 ”。 

110 REM Using РЅЕТ and PRESET 

120 KEY OFF : SCREEN 2 : CLS 

130 FOR 1=1 TO 100 

140 X =640 * RND :+ Ү=200 + RND 

150 PSET (X, Y) 

160 NEXT I 

270 J=200 + RND 

180 FOR 1=200 ТО 400 

190 РЅЕТ (1, D 

200 МЕХТІ 

205 FOR 1=1 ТО 150 : NEXT I 

210 РОК 1-:200 ТО 400 

220 PRESET (J, J) 

230 NEXTI 

240 IF INKEY $ <> w THEN END 

250 GOTO 120 
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本 程序 演示 丁点 语句 的 应 用 ，120 行 语句 去 掉 25 行 功能 键 的 显示 ,设置 高 分 辩 率 图 形 模 
式 和 清 屏 ，:30~160 行 请 名 通过 随机 画 数 来 决定 屏幕 坐标 x, y) ,而 后 用 PSET 语句 画 点 来 
模拟 群星 ，170- 230 行 语句 是 通过 随机 地 在 水 平方 向 利用 PSET Зри а, ЖЫШ ЕКИН 
再 用 PRESET 语 司 氛 去 这 条 线 来 模拟 天 空中 蕉 流 性. 闪光 是 通过 不 断 清 异 又 再 现 图 形 来 模拟 
的 。 图 9.4 是 程序 运行 的 某 一 瞬 司 。 


9.2.2 画 线 语句 


ЕРА ЕА НАНЕЛЕ, К. 它们 是 ， 

(D LNE (к, у) — Ge, у) [ <Ж >] 

(2) АМЕ Gu, у) — G, yo D, ВЕРО, B 

(3) LINE (х,у) 一 бш, y) [L <#6>], BF 

ih, ЖЖ бє. у) 为 起 始点 , DR (о, уо) 为 终止 点 ,格式 OO 的 含义 是 从 坐标 点 
Cos у) 开始 到 坐标 点 (xs，y:》 遂 一 根 直 线 ， 此 直线 的 颜色 由 彩色 参数 〈 即 彩色 码 (0~3} 
和 相应 的 COLOR 语句 中 的 配色 器 号 所 决定 。 也 就 是 说 彩色 这 个 参数 眼 画 点 语 习 PSET 中 的 规 
定 一 样 ， 缺 省 值 是 3。 

HR (D ERE (о 多 一 了 个 参数 B，B 是 一 个 标识 字符 , 它 的 和 帮 用 是 使 语句 电 画 一 条 
线 变 成 画 THAR Go, уз) 和 Ga, уг) 的 连 线 为 对 角 线 的 迁 形 。 

格式 《3) 基本 上 有限 格式 (D ÆR, 但 是 此 时 的 标识 字符 是 BF， 其 功能 不 仅 是 西 一 答 形 ， 
THAER AR RERE HAE. 

三 全 语句 中 的 Gu, у) 坐标 点 可 尺 缺 省 天 写 ， 北 时 表示 起 始点 为 当前 点 ， 也 就 是 说 是 前 
面 一 个 画图 语句 的 次 点 。 

【 例 9. т] 在 绿色 屏幕 上 划一 根 黄 线 、 而 后 画 一 个 出 黄 线 组 成 的 矩形 , 接着 再 
黄色 十 满 的 矩形 。 程 序 如 下 ， 

5 REM Using LINE Statement 

10 SCREEN 1, 0: CLS 

20 COLOR 10, 0 

30 LINE (30, 30) — (50, 5% 

40 LINE (50, 50) —STEP (10, 10), 3, B 

50 LINE—(100,100), BF 

60 IFINKEY$ = w THEN 60 

70 SCREEN 0 

80 WIDFH 80 

90 END 
程序 中 , 10 行 语句 设 早 屏幕 为 中 分 辩 率 彩色 显示 ; 20 行 语 句 设置 屏幕 底 色 为 浅 绿 和 瑟 名 器 号 
为 0; 30—50 行 语 句 的 彩色 参数 均 为 3, 由 表 9. 5 中 可 以 查 到 此 时 给 图 颜色 是 黄色 ; 70~80 行 
语句 为 恢复 屏幕 为 字符 显 示 ， 且 行 宽 是 80 个 字符 。 

程序 中 的 STEP C0, 10, TAMER 0, 60 代替 ， 这 里 顺便 说 明 一 下 ， 坐 标 CG. 
y) 有 两 种 使 用 形式 ， 一 种 形式 是 绝对 誉 宗 ， 肝 取 相对 于 坐标 原点 (0, 05 HE EERTE 


到 


一 个 由 


图 9.5 
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再 点 语 名 和 画 线 语句 中 使 用 的 是 绝对 坐标 的 形式 。 也 可 以 是 另 一 种 符 标 形式 一 一 相对 坐标 形 
式 ， 取 相对 于 当前 点 的 坐标 《位 移 量 )。 这 时 语句 中 的 坐标 点 用 STEP (Ох, Dy) 表示 ， 其 中 
(Dx, Dy) 是 相对 于 当前 点 的 坐标 。 

程序 运行 结果 如 图 9. 5 所 示 . 如 果 此 程序 在 具有 单 色 图 形 适配器 的 计算 机 二 运 行 , 则 须 在 
20 行 语句 前 加 一 个 搬 号 (把 它 变 成 注释 语句 )， 此 时 图 形 是 黑白 的 、 

LH] 在 屏幕 上 西 一 个 方 框 校 验 板 颜色 是 红 黑 间隔 ,其 中 小 方 囊 的 尺寸 可 由 键盘 
ША. ВЕЕР. 

СОНЯ Из; 

ОИК MERSO 导 ( 因 为 用 0 号 配色 器 时 ,用 彩色 码 2 即 可 得 到 红色 ); 

(3) 读 方 格 校 验 板 的 左上 角 坐 标 , ( 设 为 XSTART,YSTART) 

4) 输 入 小 方 格 的 尺寸 

(5) 酒 方 格 袍 验 板 。 

100 REM Using LINE to create a CHECKBOARD 

110 KEY OFF : SCREEN 1: COLOR 0, 0 

120 READ XSTART, YSTART 

130 INPUT ‘hight of squares (number of points)” : N 

140 C.S 

190 XSTEP=N 1. 2: YSTEP=N 

160 Yl=YSTART 

170 RED 一 一 ! 图 .6 

180 FOR ROW=1 TO 8 

290 XI=XSTART 

200 FOR COL=] T} 8 

210 ЈЕ КЕр= —1 THEN LINE (ХІ, ҮІ) —STEP (XSTEP, YSTEP), 2, BF: RED =0 

ELSE LINE (X1, ҮІ) —STEP (XSTEP, YSTEP), 2, В: RED% =-—1 

220 Хї=Х1—Х5ТЕР 

220 NEXT COL 

240 YI=Y1+YSTEP 

250 IF RED=—] THEN RED=0 ELSE RED% = —1 

260 NEXT ROW 

270 LOCATE 25 

280 INPUT "Carriage returt to end”; X $ 

290 SCREEN 0 : WIDTH 80 : KEY ON 

200 DATA 80, 10 

10000 END 

其 中 150 ЖЕН] ДЕЕ ХО Y ДЕНИН, ? УПЫ КРЕ YSTEP 等 于 输入 的 小 方块 尺寸 ， 
而 :方向 的 步 长 XSTEP 要 乘 以 一 个 系数 才能 得 到 与 YSTEP 相同 的 值 ， 这 是 由 于 异 幕 有 个 纵 
横 比 的 问题 , 这 在 画 圆 语句 中 将 作 进一步 的 解 还 。 程序 中 心 是 210 语句 ,通过 变量 RED 的 信 
为 8 和 和 一 1 的 变化 来 分 别 执行 两 个 LINE 语句 , 这 想 个 语句 都 是 画 方 杠 的 ,不同 之 处 在 于 一 个 
涂 色 ， 一 个 不 涂 色 

运行 结果 图 9.6 所 示 小 方块 尺寸 为 10)。 
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【 例 9.3】 шири 


我 们 可 以 在 计算 机 屏幕 上 画 各 种 各 样 的 函数 图 形 ， 此 例 以 正弦 函数 为 例 ， 但 是 程序 具有 
普遍 意义 ， 只 要 稍 作 改变 ， 就 可 以 画 其 他 函数 图 形 ， 例 9. 10 就 是 一 个 典型 的 例子 。 

大 家 知道 , 郴 数 值 有 大 有 小 ,那么 怎样 把 一 个 函数 曲线 合适 地 在 屏幕 上 显示 出 来 呢 ? 所谓 
合适 ,简单 地 说 就 是 充分 利用 屏幕 ,图 形 看 上 去 清楚 ,大 小 合理 。 那 么 ,首先 要 知道 的 是 > fü z 
的 最 小 .最 大 值 ( 设 为 minx,maxx 和 miny maxy), 这 在 函数 分 析 中 一 般 是 可 以 得 到 的 ,而 后 在 
屏幕 上 确定 极 值 坐 标 ,此 程序 中 ,屏幕 上 的 极 值 坐标 对 应 于 x A y 极 值 之 间 的 关系 如 下 : 


XLEFT ЯР. 


minx 


XRIGHT ET, maxx 


YTOP XET, 


YBOT HET, 


先 定义 数值 与 屏幕 坐标 点 之 间 的 比率 为 ， 


SLOPEX 一 (XRIGHT— XLEFT) / (maxx— minx) 


maxy 
minxy 


接 下 来 的 问题 是 找 极 值 中 间 的 这 些 点 ， 也 就 是 要 找 x 和 y 值 和 屏幕 上 相应 坐标 点 的 关系 。 首 


SLGPEY= (YTOP—YBOT) / (maxy 一 miny) 


于 是 ,任意 z,y 值 与 屏幕 坐标 z1,y1 有 如 下 关系 ， 


(X1, YD 画 点 。 程 序 如 下 ， 
100 REM Drawing a Function Curve 
110 SCREEN 1: KEY OFF 
120 READ STEPX 
130 READ MINX, MAXX, XLEFT, XRIGHT 
140 READ MINY, MAXY, ҮВОТ, YTOP 
150 SLOPEX= (XRIGHT—XLEFT) / (MAXX—MINX) 
160 SLOPEY= (YTOP—YBOT) / (МАХХ —MINY) 
170 D=3, 14259/180 
180 YBAR= (ҮВОТ-РҮТОР) /2 
190 LINE (LXEFT, YBAR) — (XRIGHT, YBAR) 
200 FOR X—MINX TO MAXX STEP STEPX 
210 Y=SINGX x D) 
220 X] =XLEFT+SLOFEX x (X —MINX) 
230 Y1=YBOT+SLOPEY + (Y —MINY) 


X1=XLEFT+SLOPX + (X —minx) 
Y1=YBOT+SLOPY * (Y —miny) 
这 样 对 应 于 函数 的 每 个 x,y》 信 ， 就 可 找到 相应 在 屏幕 上 的 坐标 (X1，Y1)。 再 用 PSET 


240 PSET (X1, Y1) 
250 NEXT X 
260 LOCATE 25 : INPUT “carriage return to end”; X $ 
270 SCREEN 0 : WIDTH 80 : KEY ON 
280 DATA 5 
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290 РАТА ü, 360, 10, 310 

3500 РАТА —1, 1, 180, 20 

10000 END 
Нот 是 程序 运行 结果 。 

СВІ з.10] MEH 2 = Hsin(z 十 de 曲线, 其 中 4 是 初 相 角 (为 90 度 ),K 为 衰减 系数 

取 0. 05, H 为 最 大 振幅 50。 要 求 连 续 画 出 10 个 于 期 的 衰减 波形 。 程序 与 9. 9 基本 非 同 , 改动 
很 少 ， 

109 REM Drawing y=h «зіп (xd) * exp (4 жх) 

119 SCREEN 2: KEY OFF 

125 READ STEPX 

i39 READ MINX, MAXX, XLEPT, XRIGHT 

140 READ MINY、MAXX、YBOT，YTOP 

145 READB, K 

150 SLOPEX— (XRIGHT—XLEFT) / (MAXX—MINX) 

-60 SLOPEY= {YTOP—YBOT) / (МАХҮ 一 MINY) 

170 D=3. 14159/180 

180 YBAR= (ҮВОТ--ҮТОР) /2 

190 LINE (XLEFT, YBAR) — (XRIGHT, YBAR) 

200 FOR X=MINX TO MAXX STEP STEPX 

210 Ү=МАХҮ *SIN ( (ХВ) +D} *EXP (—Kx (X xD) 


220 X1=LXEFT+SLOPEX + (X —MINX) 230 Y] =YBOT+SLOPEY + (Y —MINY) 

240 PSET (Х1, YD 

250 NEXT X } 

250 LOCATE 25 : INPUT *carriage return to end”; > 
x$ 

270 SCREEN 0: WIDTH 80 : KEY ON 

280 DATA 2 


280 DATA ©, 3600, `0, 630 
300 DATA —50, 50, 180, 20 
310 DATA 90. D5 

12060 END 


图 9, 8 是 这 个 程序 运气 的 结果 


9.2.3 DRAW 语句 | = 
当 -一 师 画 包 含 很 多 直线 段 时 ， 那 么 要 用 到 Б 
EMREN. Ж ТЕРИМ ДЖЕРГЕ НЕГЕ, MS BASIC 提供 了 DRAW 语句 , 它 的 功能 
пи. дейд, 
DRAW< ФФ 
р, ране ink. ESE, 
Cn- 一 向上 移动 mn 个 单位 
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Dn 一 一 沿 下 移动 n 个 单位 
Tn 一 -向 左 移 动 n 个 单位 


Rn 一 -向 有 移动 n 个 单位 be a АМ ММ 

En 一 -名 看 向 上 WER Adn Wa Ë S F G = 
个 单位 

Fn -向 有 启 下 (对 角 线 名 移动 n 个 单位 шо 


‚ Gn 一 一 向 左 向 下 GR) 23838 n А 
Ha 一 一 向 左 向 上 MAR) ABA п ЖЛ 
这 些 命令 的 作用 如 区 9.9 序 示 。 
HERA: 
Cn 一 一 选择 颜色 n， 中 分 辩 率 0—3, курж 0—1 
Sn 一 一 比例 因子 。n 为 0~225,n 被 4 队 蚌 真正 的 比例 因子 。 
An 一 一 把 图 形 旋 转 一 个 角度 , 而 这 个 角度 是 90 度 的 倍数 , n 可 以 是 0. 1、2、3, 分 
别 充 泣 于 把 区 形 旋转 0 度 ，96 度 ，270 度 。 旋 转 的 方向 都 是 闫 时 针 。 
Mx,y 一 一 从 现行 位 置 开始 向 (х, у) MR. 
要 深入 掌握 DRAW 语 乌 ,可 参半 有关 手册 , 这 里 只 作 基 本 的 介绍 , 9. 11 是 应 用 的 一 个 
例子 。 
[9.11] 画 一 个 帆船 ， 背 景 淡 蓝 ， 帆 是 白色 ， 而 船 是 洋红 的 。 程 
ЖЕТ. 
Š REM Using DRAW Statement 
10 SCREEN 1, 0: CLS; KEY OFF 
20 COLOR 9, 1 
25 АБ = "C8š L40 UBO F40 040 L20 U80.D80 С? 1130 F20 R50 E20 L70” ` 
80 DRAW AS 
35 IF INKEY $ = "w THEN СОТО 25 
40 SCREEN O: WIDTH 80 : KEY ON `. 
50 END 
程序 中 ， 先 定义 字符 器 А $, ME DRAW A $. ШЫП A $ H 8.10 
边 的 表达 式 直 接 放 在 DRAW 的 后 面 , 其 效果 坪 -- 样 的 。 程序 运行 结 果 
图 9. 10 所 示 。 


3$9.3 жй, 1A f Dm 


了 图、 椭圆 及 圆 弧 都 可 以 用 CIRCLE 语句 来 完成 。 它 的 一 般 格 式 是 ， 

CIRCLE (x y), 621. ВГ, <і>, СГ, СВЙ] 

CIRCLE ДЕ) ЕЕ SD R BE ЫЫ (аас) 为 图 心 , т АЕ. w “И 
К” азан о —1-Щ. З ААА Е T НЕ Т НЕ Т — АБ, ТЦ. 

Ж Crop) ИСААК. MARERE ШОНО ААА, ГАА В АА 
ВАША. 
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Т ГЕ ШШ x 轴 的 半径 (主轴) ,“ 彩 色 ” 为 画 圆 弧 的 彩色 码 ， 取 什 是 
0~3， 缺 省 时 为 3。“ 起 始 角 ” 为 所 画 弧 的 起 始 角 ， 以 弧度 表示 ， 取 值 为 一 2x~-2r， 道 时 钉 度 
量 ， 缺 省 时 其 值 为 0“ 终止 角 ”为 所 兽 圆 级 的 终止 角 ， 以 弧度 表示 ， 取 值 为 -2+~-2x， 遗 时 
针 度量 ， 缺 省 信和 是 2x。 起 始 角 和 终止 角 的 含义 见 图 9. 11. 

纵横 比 用 来 酉 出 不 同形 状 桶 圆 。 如 果 要 天 图 ， 要 选 却 适当 的 
纵横 比 。 由 于 屏幕 上 相 邻 的 纵向 的 二 点 间距 离 大 于 异 向 “点 间 的 
下 离 , 因此 纵横 比 不 应 指定 为 1。 如果 不 指定 此 参数 ,系统 会 
按 “ 郴 砚 ”加 以 指定 , 中 分 状 显 示 时 指定 为 5/6, 高 分 辩 显 示 时 指 
定 为 5/12. 如 果 自己 指定 此 参数 ,请 注意 y 方向 上 的 半径 等 于 z 方 
向 上 的 半径 乘 以 纵横 比 〈 但 应 同时 考虑 屏幕 上 纵向 的 “个 单位 与 үө 
横向 的 - -个 单位 不 等 长 ) 。 ван 

ЬЯ ЕНЕР ИГИ 89 ИРЕ АЕ, PLN 
将 通过 半径 与 图 心 相连 ， 具 体 见 例 9. 12。 

Куэ. 12】 用 不 同 颜色 画 一 组 同心 圆 和 不 同 纵横 比 的 圆 虐 。 


5 REM Using CIRCLE Statement 


10 SCREEN 1, 0: COLOR 0, 1: CLS N ZIN c 
FOR R= TO SO STEP 5 : \ 
k. (e, 
— uz 
一 一 


30 CIRCLE (160, 100), R, R MOD 4 ч ~ 
40 NEXT R h ^ 

50 PT= 3.14159 

60 CIRCLE (80, 80), 30, 2, 0, РІ/2, 1 图 9.12 

70 CIRCLE (80, 130), 30, 2, 0, РІ/2, 0.2 

80 CIRCLE (240, 80), 30, 2, —Р1/2. —. 000001, 1 

90 CIRCLE (240, 130), 30, 2, —РІ/2, —. 000001,0. 2 

100 IF INKEY $ = ™ THEN 100 

120 SCREEN 0 : WIDTH 80 

130 END 


程序 中 ，30 行 ORCE 语句 中 的 半径 是 可 变 的 ,颜色 通过 求 余 运算 分 别 得 ,1,2, 3, 0, 1, 2, 
3, 0, 1, 2%, 即 彩色 码 看 0 一 3 之 间 变 化 , 这 样 通过 循环 语句 就 可 得 到 半径 不 同 ，4 种 不 同 
颜色 的 то 个 同心 圆 , 但 我 们 看 到 的 只 有 8 个 , 这 是 因为 彩色 码 为 0 时 , 圆 弧 的 颜色 与 底 色相 
同 、 看 不 出 来 。 另 外 , 还 有 4 个 圆 弧 ， 半 径 都 是 30〈 即 z 向 的 半径 )， 严 边 两 个 圆 弧 的 起 始 角 
都 是 零 , 终止 角 都 是 r/2， 但 纵横 比 不 一 样 ， 上面 那 个 圆 弧 是 1， 由 于 屏幕 y 轴 相 邻 点 的 距离 
大 于 z 轴 和 邻 点 的 距离 ， 所 以 是 个 y 轴 拉 长 了 的 椭圆 强 ; 而 下 面 那个 的 纵 寞 比 是 0. 2， 所 以 是 
ЕНИ. 

下 面 分 析 右 边 的 两 个 圆 弧 。 要 强调 的 是 要 在 圆 级 和 圆心 之 间 连 线 ， 则 应 在 起 始 角 和 终止 
角 前 加 负 号 ， 同 时 ， 负 零 应 用 一 个 负 的 小 值 来 代 蔡 。 图 9.12 是 程序 运行 结果 。 

D 在 中 分 辨 图 形 方式 下 ， 只 能 使 用 行 宽 是 40 个 字符 ， 即 对 应 于 “大 ”字符 ; 在 高 分 状 
率 图 形 方式 下 ， 只 能 使 用 80 个 字符 的 行 宽 ， 即 对 应 于 “小 ”字符 

(2) ,字符 以 彩色 码 3 的 颜色 显示 ; 

(8) 图 形 方式 下 ， 只 能 使 用 ASCL 码 小 于 128 的 字符 。 


159 


[@ э. 131 屏幕 上 显示 一 个 时 钟 ,起 始 时 间 可 由 用 户 设 定 ,秒针 会 走动 并 会 发 出 响声 , 问 
时 用 字符 显示 出 时 、 分 、 秒 ， 程 序 如 下 ， 
10 REM A Clock 
15 INPUT "What time is it (HH : MM ' SS);”, T $ „т 12 
20 TIMES =T $ А 
25 SCREEN 1, 0 "i f 
30 COLOR 1, 0 
35 KEY OFF: CLS 
40 LOCATE 5, 122: PRINT “12” 
45 LOCATE 13, 22: PRINT “3” 
55 LOCATE 21, 12: PRINT “6” 
60 LOCATE 13, 3: PRINT "9" 
65 CIRCLE (94, 100), 80, 1,,, 7/8 
70 С=6. 28/60 . 
75 J=VAL (RIGHT$ (ТІМЕ $, 2)) +45 Е 
80 XI 一 60*COS (J*C) +94 
85 YL=60xSIN J*C) +100 图 9 13 
90 LINE (X1, ҮІ) — (94, 100), 2 
95 CIRCLE (94, 100), 2 
100 IF T$ —TIME $ THEN 130 ELSE LOCATE 10, 9 : PRINT TIME $ 
110 T$ =ТІМЕ$ 
120 LINE (ХІ, Y1) — (94, 100), 0: PRINT CHR $ (7) 


130 IF INKEY$ = ™ THEN 90 
140 SCREEN 0: WIDTH 80 : KEY ON 
999 END 


程序 中 , 15—20 行 语句 , 设 定 起 始 时 间 ; 25 一 30 行 语句 设置 中 分 辩 率 彩色 , АКЕ МИЕ. 
0 号 配色 器 ， 因 此 , 若 要 用 定位 语句 LOCATE 在 特定 的 地 方 显示 字符 ,就 应 意识 到 一 行 40 个 
字符 。40 一 65 行 语句 画 时 钟 ; 70 一 90 语句 画 秒针 }， 95 语句 画 钟 的 中 心 点 小 贺 ; 100 行 语句 显 
示 时 ， 分 、 秒 ;120 行 语句 “ 擦 去 ”秒针 ， 并 发 出 钟 响声 ; 130 语句 表示 若 要 继续 显示 时 钟 则 
转 去 90 行 语句 继续 执行 ， 如 此 往复 , 即 得 一 个 秒针 会 动 且 发 出 响声 的 时 钟 图 形 。 若 要 结束 显 
示 ， 只 要 在 键盘 上 按 任意 键 就 结束 程序 运行 ， 回 到 BASIC 的 状态 。 

通过 此 例 ， 可 以 学 会 图 形 方式 下 显示 字符 的 方法 ， 这 在 很 多 情况 下 是 有 用 的 。 

程序 运行 结果 如 图 9. 13。 


$94 图 形 着 色 


我 们 前 面 已 经 介绍 过 ， 面 线 语句 的 第 三 种 格式 ， 不 仅 可 以 画 您 形 ， 而 且 还 可 以 在 矩形 内 
着 色 ， 这 也 可 以 说 是 一 种 着 色 语 句 。 现 在 要 介绍 更 一 般 的 着 色 语 句 ， 它 能 在 各 种 各 样 的 复杂 
图 形 内 着 色 ， 语 句 的 一 般 格式 是 ， 

PAINT (X, Y) [，< 填 充 色 > Г, <476>] 
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EF, (х, YX) 为 边 异 线 内 任意 一 点 ( 称 内 点 ) 的 坐标 ,， 它 可 以 是 绝对 坐标 ， 也 可 以 是 相 
Жк, 相对 坐标 用 前 画 已 述 的 STEP (Dx, Dy) RR, 颜色 将 从 此 点 开始 一 直 填 洪 整 个 区 域 . 
直到 边界 为 止 。 

壤 充 色 为 区 域内 填充 的 颜色 ,其 入 范围 是 0~3， 缺 省 秆 在 中 分 辩 率 时 为 3， 高 分 辩 率 时 
为 1。 

边界 色 是 边界 线 的 颜色 ， 若 该 参数 缺 省 ， 表 示 对 整个 屏幕 着 色 。 但 是 当 所 要 填充 的 颜色 
是 3， 而 区 域 边界 的 彩色 也 是 3 时 ， 那 么 两 者 都 可 以 缺 省 (如 例 9.14 中 的 对 任意 多 边 形 着 
E) 注意 要 着 色 的 区 域 达 界 不 可 以 有 和 缺口 ， 也 就 是 说 要 封闭 的 ， 否 出 就 会 “ 油 出 *， 即 对 整 
个 屏幕 着 多。 

С э. 14] 面 一 个 半圆 、 一 个 三 角形 和 一 个 不 规则 的 多 边 形 , 并 在 其 中 分 别 涂 上 洋红 ,、 青 
色 和 和 白色。 这 三 个 图 形 的 边界 线 都 是 自白 色 画 成 的 。 程 序 如 下 ， 

10 REM Using PAINT Statement 

20 SCREEN 1: CLS: COLOR 0, 1 

25 “一 一 一 一 一 DRAW AND PAINT A SEMICIRCLE; 


30 CIRCLE (60, 60), 40,3. —. CC0001,—3. 1416 

40 PAINT (59, 59), 2, 3 

4 ”一 一 一 一 一 Drmaw and paint а triagle: 

50 LINE (60, 80) 一 STEP (70, 0› 

60 LINE —STEP (—15, 50) 

70 LINE — (60, 80) 

30 PAINT《65， 81), 1,3 

90 o- Draw and an irregular figurel: 一 一 一 一 一 

100 LINE (200, 50) — (230, 50) 

110 LINE— (210, 90) 

120 LINE— (220, 1205 

130 LINE— (160, 160) 

140 LINE— (140, 120; 

150 LINE— (200, 50) 

160 PAINT (200, 51) 

110 IFINKEY$= w ТАЕМ 176 

180 SCREEN 0: WIDTH 80 

190 END ` 
BEF, 25—410 Е РД, АЗЕ РЧ РЕТ; 45~804 语气 画 一 个 三 角形 ， 并 涂 上 青色 ; 
90—160 语句 下 任意 多 边 形 并 涂 白色 。 程 序 过 行 结果 图 9.14 所 示 ， 

Ee. 15] FH CIRCLE 语句 和 PANT 语句 绘制 凯 形 统计 到 ,假定 统计 项 目 共 有 9 项 ,每 

项 所 占 的 可 分 比分 别 是 3, 7, 17, 21, 6, 4. 11, 12 和 9, M -个 扇形 统计 图 并 月 颜色 把 它 
们 区 分 开 来 。 

题目 的 实质 是 画 '- 系 列 的 圆 昕 , 旦 每 段 圆 红 要 与 圆心 相连 .第 一 个 圆 绝 占 整个 圆 的 13%, 
那么 所 占 的 弧度 数 应 是 13/100 X21, 令 起 始 角 是 零度 , MALAE 13/100X 21 IE, Р 
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КЕ 


ЖОЛИ 
弧 的 终止 角 ，, 所 以 这 个 加 
起 始 角 和 终止 角 知 道 了 ， 就 可 以 画 


须 在 起 始 角 和 终止 角 前 加 负 号 。 


每 个 扇形 画 好 后 要 着 色 , 可 用 PANT 滞 句 ， 问 题 的 关键 是 要 找到 扇形 内 的 一 个 点 ， 本 程 
PaE, 这 一 点 总 是 在 户 形 内 的 , 把 这 一 点 作 
[以 选 帘 形 中 的 其 他 点 作为 内 点 ， 只 要 保证 它 在 庸 


序 就 是 利用 每 个 遍 形 的 中 心 线 高 圆心 9。 8 И 
为 着 色 语句 的 “内 点 ”天 


FARE. 当然 ， 可 


的 7%, 则 占 弧 度数 是 7/100X 2л, 所 画 画 弧 的 起 始 角 应 该 是 前 面 那个 
MARLEEN (13 十 7) /100X 2x ME, … 一 直到 最 后 一 个 圆 弧 为 止 。 


弧 ， 问 题 是 每 个 圆 弧 必须 与 圆心 相连 形成 遍 形 ， 那 么 必 


形 内 。 画 圆 的 纵横 比如 果 缺 省 ， 如 前 面 已 所 到 过 的 ， 应 是 一 个 图， 但 是 实际 在 某 些 显示 屏 上 


是 有 误差 的 ， 也 就 是 说 画 引 的 圆 不 十 分 圆 ， 这 在 例 9. 129 


的 几 个 同心 圆 可 以 看 出 。 为 了 得 到 


满意 的 圆 ,可 以 修正 纵横 比 来 达到 , 其 实 , 我 们 在 例 9. 13 的 画 时 钟 时 已 经 这 样 做 了 ,我 们 用 7/8 
作 纵 模 比 得 到 较 好 的 效果 。 当 然 , 不 同类 型 的 计算 机 ,纵横 比 的 这 个 修正 信也 可 能 不 一 样 。 


此 程序 只 要 修正 一 下 数据 项 ， 就 可 以 着 别 的 鹿 形 统 让 


《 圆 外 的 数字 是 另 加 的 ) 。 


100 
110 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


260 
270 
280 
290 
300 
310 
320 


REM А Pie Chart with cofors 
CLS ı KEY OFF 
SCREEN 1 : COLOR 0; 1 
х=160: Y=80 
PI=3. 1459 
A2=—. 000001 
READ RAD 
READ NCAT, TOT 
FOR CAT=1 ТО МСАТ 
READ V 
АТ=А2 : A2=A1—V/TOT * 2 » PI 


CIRCLE (X, Y), PAD., A], А2, 7/8 
PAINT (X+ (. 8 ж КАЮ) *COS ( (—Al—A2) /2), Y— (. 8*RAD) *SIN ( (—А1— 
А2) /2) ж (7/8))，1 十 CAT MOD 3, 3 


NEXT CAT 


LOCATE 24 : INPUT: "enter carriage return to end”; X $ 


SCREEN 0 : WIDTH 80 : KEY ON 
DATA 90 

DATA 9, 100 

DATA 13, 7, 17, 21, 6, 4, 11, 12. 
END 
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НЯ. 程序 如 下 ， 图 9. 15 是 运行 结果 


此 程序 在 黑白 图 形 适配器 的 PC 机 上 运行 时 , 只 要 在 着 色 滞 句 前 加 一 个 撤 号 (使 之 变 成 注 


ERT) 


9.1 
O) 
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即 可 。 
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题 


下 而 的 说 法 对 吗 ? 车 错 ， 请 纠正 。 


在 高 分 辩 率 图 形 模式 下 ， 屏 幕 竹 直 方向 是 640 Аз. ЖЗ 


FF 方向 是 200 个 点 。 


D h. 290823 ША F, ЭЖИ F fg 4 AMERRE (0, 199) 

(3) 彩色 语句 COLOR 可 以 使 用 于 中 、 高 分 辩 率 图 形 显示 模式 , 伍 在 字符 显示 模式 下 不 能 
使 用 。 

Ч 中 、 高 分 状 率 图 形 显示 强 式 下 ， 都 允许 在 屏幕 上 有 26 行 的 字符 显示 。 

(S) 很 定 图 形 模式 下 ， 现 行 点 的 坐标 是 《10?，30 ， 那 么 经 过 相对 坐标 STEP (一 33、 
47) 以 后 的 屏幕 坐标 点 应 是 (67, 77). 

9.2 在 屏幕 的 正中 部 分 , Er “WECOME” FH. 

9.3 在 图 形 模式 下 ， 画 函数 y 一 cosx， 要 求 显示 10 个 周期 。 

9.4 画 一 个 康 形 统计 图 ， 分 6 组 ， 每 组 所 占 的 百分比 是 ，18、22、B、12、26、14。 要 
求 祖 邻 两 访 形 用 不 同 的 颜色 区 分 之 。 

9.5 设计 一 个 坚 方 图 ， 表 示 1986 年 到 1990 年 各 年 生产 总 值 的 增长 情况 EAE). 

9.6 画 一 个 红 五 角 星 。 

9.7 画 一 面 吉 星 红旗 〈 星 的 颜色 为 黄色 )。 

9.8 WACA, HARJAA. MANECH (60, 100), (240, 100, ZA 
圆 着 黄色 ， 右 达 的 圆 着 绿色 ， 两 圆 相交 部 分 为 红色 。 

9.9 对 本 章 习题 9. 4 作 改 进 , ЖЕ КЕ 18%”, “2214”. “ВИ”, “1240. 1247. 
“265”，“14 上 6” 等 用 字符 显示 在 出 形 区 内 。 
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第 十 章 输入 输出 设计 


8$ 10.1 输入 输出 技术 


输入 和 输出 是 程序 的 一 个 重要 功能 。 一 般 说 ， 一 个 程序 是 需要 输入 一 些 数据 的 . 运算 结 
果 也 需要 输出 。 怎 样 有 效 地 组 织 数据 的 输入 输出， 是 程序 设计 人 员 应 当 仔细 考虑 的 问题 。 一 
个 好 的 程序 应 当 有 好 的 输入 输出 功能 ， 它 是 衡量 程序 奈 量 的 一 个 重要 东 志 。 

应 当 考 虚 的 有 关 输 入 输出 的 问题 ， 包括: 

1. 要 使 用 户 感 习 方便 好 用 。 即 使 不 屋 计 算 机 语言 程序 设计 的 人 也 能 方便 地 使 用 程序 , 能 
正确 址 组 织 数 据 的 输入 能 淹 晰 地 看 出 输出 的 结果 。 ИП, 在 INPOT 语句 中 用 “提示 ”提醒 
用 户 输入 所 和 需 的 数据 ; 用 “菜单 ”方式 提供 几 种 运算 功能 ， 用 户 只 需 简单 输入 一 个 字母 或 数 
F, 程序 就 能 执行 其 中 个 功能 LER $》 10.4); 在 输入 输出 文字 捉 时 使 用 冯 字 以 适 信 国内 
使 用 需要 : 在 输出 数值 时 采取 “ 略 式 输 由 ”以 使 输出 格式 整齐 美观 ; 在 输出 时 应 加 上 必要 的 
文字 说 明 ， 如 果 打 印 结 果 只 是 一 大 堆 数 字 ， 阅读 老 是 很 难 弄 清楚 各 个 数据 的 含义 欧 。 

2. 要 保证 输入 数据 的 可 靠 哇 . 输入 数据 是 否 正确 直接 影响 运行 结果 。 人 们 常用 键盘 输入 
数据 ,而 人 工 输入 难免 会 出 错 ， 除 了 要 求 操作 员 尽 重 减 少 差错 率 以 外 ， 在 年 吝 中 应 当 设 置 检 
查 措施 ， 凡 发 现 误 操作 所 造成 的 数据 错误 。 常 图 的 有 几 种 方法 : 

(1) 对 癌 一 个 数据 先后 输入 两 遍 ， 如 果 二 次 不 同 ， 则 认为 可 能 有 错 ， 提 请 人 们 恰 查 重 输 
А. 

10 INPUT "Enter your datai”, А, B, С 

20 INPUT "Enter your data again,”, АІ, ВІ, СІ 

30 IF A<>Al OR B<>>B1 OR C<>>C1 THEN PRINT “ERROR”; СОТО 10 
М, ТН PREA Kiti ЖЕ ЕАО е ВОЗ ЕЕЕ hi. wM MERA T 
数据 而 二 次 都 错 打 字符 ,此 程序 是 不 能 发 现 的 , Mk riks “МЕНЫ”. 不 少 录入 数据 的 系统 采 
用 此 法 。 

(2) 有 些 数据 是 有 范围 欧 , 程 评 中 应 检查 数据 是 否 合法 。 如 “日 期 ” 数据,“ 年 ”不 超过 
1999, “А” ЖМ “12”. “日 ”不 超过 31。 可 用 以 下 语句 检查 ， 

10 INPUT “Enter Date,” M, D, Y 

20 IF М2>12 OR 02>31 OR Y>1999 THEN PRINT *ERROR”,; СОТО 10 
其 它 如 : 规定 购 货 额 不 超过 四 位 数 , 若 超 过 四 位 数 则 判定 数据 有 错 ; 学 生 学 号 为 6 位 数字 , Ж 
超过 5 位 则 错 ; 等 等 。 

《3) 数据 加权。 如 果 输 入 的 数据 全 是 教 字 , 可 以 下 “加 权 法 ”， 即 先 求 出 该 数 被 某 整 数 除 
的 余数 ， 加 在 旋 数 的 后 面 。 如 输入 900818， 它 设 ? 除 的 余数 为 2， 把 2 加 在 原 数 据 之 后 ， 得 
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9008182。 输 入 9008182， 册 程序 奏 查 它 前 6 位 数 被 ? 除 的 余数 是 否 等 于 2， 若 不 是 ， 则 肯定 
有 错 。 

10 INPUT "Enter your data;”, N $ 

20 ТЕМОМ) <>7 OR VAL (LEFT £ (N$, 67) МОР 7<> 

VAL (RIGHT$ NS 12) THEN PRINT “ERROR”; СОТО 10 

这 种 方法 发 现 错误 的 可 能 较 大 。 例 如 若 把 9008182 Т 9608182, 程序 检查 960813 被 ? 除 
的 余数 不 是 2 市 是 3, 判定 输入 有 错误 ,除非 也 把 检验 位 也 打 氏 ,而 且 使 前 面 6 位 数 除 以 7 余 
数 治 怡 等 于 恰 验 位 , 例如 9608185, 但 这 种 错 的 机 率 很 小 。 这 种 方法 可 苇 度 较 高 ， 但 要 事先 加 
权 ， 算 出 检验 位 ， 了 荆 作 量 大 ， 所 以 有 只 有 在 输入 关 链 性 的 数据 时 才 月 这 种 方法 

3， 应 当 保 证 不 论 输 入 什么 数据 包括 错误 输入 的 数据 )»， 都 下 致 发 生 程序 中 产 ， 而 应 由 
ЕЛЕ, д, 

СО 如 果 输 入 的 是 数字 , H — АЕТ (例如 把 数字 0 错 打 为 字母 0, 把 数字 1 
错 打 为 小 扎 字 母 :)。 如 果 用 数 全 变量 ， 邵 ， 

10 INPUT "Enter n;”. N 
出 输入 他 符 后 便 会 出 现 “ 数 据 与 变 大 类 型 不 同 ” 的 错误 ， 程 序 中 新 。 为 避免 此 情况 ， 可 以 改 
用 字符 符 变 量 ， 若 数字 长 6 位 ， 则 可 用 以 下 语句 : 

10 INPUT "Ente n;”, N $ 

15 Т=0 

20 FORI=1 T06 

30 М—А5С OBDS$ (N$, L, 1) 

40 IF М<48 ОВ M>57 THEN PRINT “ERROR”; T—1 《数字 的 ASCI RBA 48 到 57 之 间 ) 

50 NEXT I 

БО IFT=1GOTO 10 


可 以 将 此 法 与 复 验 法 联合 使 用 ， 既 保证 输入 数字 .又 能 复 验 ， 而 且 不 致 由 于 误 给 入 字符 
而 使 程 岸 中 断 。 

(D 对 不 合适 的 输入 数据 要 有 柜 应 处 理 措施 。 有 些 输 入 数据 ， 输 入 时 并 无 错误 ， 而 是 在 
计 择 输入 数据 时 考虑 不 同 . 蚀 如 第 四 章 例 4. 5 解 一 元 二 次 方程 式 ， 寻 果 输 入 A0 时 程序 能 给 


外 ”情况 ,一 个 好 的 程序 应 有 “防御 ”措施 ， 即 不 论 操 作 员 输入 什么 数据 ， 都 能 作 相 应 处 理 
而 不 会 岳 稳 序 中 断 运 行 。 庶 该 在 程序 中 增加 对 А = 0 的 处 理 。 

共 似 的 情况 是 不 少 的 , 例如 第 四 章 例 4.6《 输 入 A, В, С, REAA, В, С 为 三 过 的 三 角形 
面积 ) ， 应 当先 检查 A，B，C 是 否 能 梅 成 三 角形 。 如 果 不 是 三 角形 的 三 边 就 不 应 当 求 面 积 。 

《3) 当 箱 入 很 多 纸 同 类 数据 时 , 最 好 不 用 РОК NEXT (BFS, 例如 要 输入 全 校 学 生 的 成 绩 
数据 求 平 沟 分 数 , 如果 用 FOR- NEXT 循环 必须 先 数 出 要 输入 的 数据 个 数 , 万 一 数 错 了 (例如 
991 大 的 数据 ， 错 数 成 992 大 )， 用 下 而 请 句 就 成 把 题 了 。 

5 SLM 一 0 

10 POR I=] TO 992. INPUT POINT; SUM=SUM-- POINT, NEXT 1 

20 AVE=SUM/992 
MARERA 991 全 数据 后 , 程序 还 等 待 输 入 第 992 个 数据 , 而 实 味 上 没有 输入 数据 了 . R 
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好 修改 程序 ， 重 输入 数据 ， 藤 面 的 输入 全 部 白费 。 在 这 种 情况 下 ， 可 以 用 “结束 标志 ”( 如 以 
“*--1” 表示 输入 结束 ), 用 F 语句 或 WHILE 语句 控制 循环 结束 , 这样 可 以 不 必 事先 去 数 输入 
数据 的 个 数 。 

输入 输出 风格 还 可 以 有 其 它 一 些 内 容 ， 读 者 也 可 以 根据 需要 创造 一 些 好 的 经 验 . 


{102 格式 输出 


我 们 已 介绍 过 在 输出 数据 时 为 控制 输出 数据 的 位 党 而 可 以 采用 的 几 种 方法 : 
。 标准 打印 格式 ， 在 PRINT 诸 句 中 用 逗号 分 隔 两 个 数据 项 。 
紧 次 格式 输出 ， 在 PRINT 语句 中 用 分 号 分 隔 各 数据 项 。 
ИЕН БУ (TAB 函数 )， 可 以 榨 制 在 一 行 的 指定 位 置 输出 一 个 数据 项 。 
用 空格 函数 (SPC RO 在 输出 的 两 个 数据 问 插入 若干 个 空格 。 如 : 
10 PRINȚ “BEIJING”; SPC (3); “SHANGHAI”; SPC (3); “NANJING” 

输出 为 : 

BEIJING uoo SHANGHAI o NANJING 

只 有 这 几 种 方法 还 不 能 满足 用 户 要 求 ， 例 如 有 时 要 求 输出 小 数 形 式 而 系统 却 输出 指数 形 
Ж, 有 时 只 要 求 输出 位 小 数 系统 却 给 出 7 位 小 数 ; 在 输出 报表 时 ， 往 往 要 求 .上 下 行 的 数据 
按 小 数 点 对 齐 ， 但 用 以 前 介绍 过 的 方法 无 法 实现 此 要 求 ; 有 时 还 要 求 在 数据 前 加 某 些 专用 字 
F dmi “S? SR”, H” EAS. XL MAJA BASIC 提供 的 PRINT USING 语句 来 实现 
“BARH х” С ERME”). PRINT USING 诸 句 的 一 般 形 式 为 : 

PRINT USING“ 输 出 < 格式 字符 串 汪 *”; 过 输出 项 > 

输出 格式 字符 串 〈 简 称 格式 串 ) 用 来 指定 输出 项 的 输出 格式 ， 它 由 规定 的 格式 学 符 及 分 
隔 符 组 成 。 对 常用 使 用 编辑 字符 在 下 面 介 绍 。 


њо m = 


10.2.1 J PRINT USING 语句 输出 数值 


可 以 用 以 下 一 些 专用 的 格式 字符 ， 

а) “н” RRA 

Н НО H” SERRER рр н УВС ВРАТ 

10 PRINT USING “H R## H”, A, B, C 
若 A=123，B 一 234.5，(C 一 24680。 输 出 结果 为 ， 

‚123—235%24680 

129095 {лае 

А B с 
可 以 看 出 ， 为 每 个 输出 项 保留 4 列 。(1)》 СААР “h” НОТУ, 则 前 面 补 空格 ; (2) 对 
正 数 不 输出 “十 ”号 ， 对 负数 输出 “一 ",“ 一 ”号 也 占 撕 一 个 “ 林 ” 位 置 ; O 小 数 点 后 的 
数字 按 四 会 五 入 处 理 ;(4) 若 输 出 项 整数 位 数 多 二 格式 囊 中 “##” 的 个 数 ， 对 该 数 的 整数 部 
分 按 诛 样 输出 ， 但 在 它 的 前 而 加 一 个 “中 ”， 以 表示 “给 定 的 位 数 不 够 "; (5) 输出 项 加 《如 
А, B, CZD 用 去 号 或 分 导 相 隔 , 作 用 完全 ЁЁ (6) 可 以 在 PRINT USING 语句 中 用 - -个 
格式 说 明 指定 多 个 输出 项 的 输出 格式 。 
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可 以 在 -个 格式 字符 串 中 包括 两 个 输出 格式 , AMEPATA Ar 
10 PRINT USING “HHEH ЕНН ЕД”, А,В 

输出 结果 为 ， 
-23 -一 235 


А B 
两 个 输出 格式 C “енн” Ы St t t t в” 之 间 如 用 一 个 或 多 人 空格 相隔 ， 在 给 出 
时 .这 些 空格 照 印 . 
(2) *." RRE 
ЛЭ ЛЖ КИ. 
10 PRINT USING “# # tt. =”, A, В, С 
$ А—12.345, B= — 2.3, С= 1112, 456， 则 输出 为 : 
12,35.,—2.30% 1123. 46 
ОР иу 2 Te 
А B с 
可 以 看 到 ， ОНЯ POS S SOL “н” WSA ЖОЕ Sus NI EA 
位 置 上 补 玲 ， 若 它 少 于 输出 数据 约 小 数 在 数 则 对 多 余数 字 按 四 合 五 入 处 理 。 
(3) “кя” В 
Ж {ЕЖЕ B] pt WAA MER “< ”号 (BB “< x ”)， 则 使 数字 前 面 的 空格 即 
以 “x ”多 满 之 (这 是 为 了 防止 别人 在 数字 之 前 擅自 增加 数字 ),，“* +” {уту ЕТТИН 
FRE. 
10 PRINT USING “x < HE. H”; A, B,C 
A. B,C 的 值 同 前 ， 输 出 后 结果 为 
* x723 s — 231123.5 
一 
А B с 
4) "$ S” ВСЯ 
ЕНА S” Ө Сар “$ $”) На Н В АГЕ “%” 
5. “$ $" Е БАИ, 
10 PRINT USING “$ $ ##. #”; A, В, C 
ЖИВУ: 
-$12.45—%2.3% $1123.5 
БАЕ Д 
A B c 
5; “x 5° ERT 
是 前 两 种 C “= x ”与 “ 囊 $U) 的 结合 ， 给 出 对 在 数字 前 加 一 个 “S”， 并且 “*” 代 
Ë “$” MWER. 
10 PRINŢ USING “+ < S# f i. Ё”; А,В, C 


给 出 为 : 

+ ж + $]12.4е xx 2.39 $1123 5 
~ 一 ~ — 
A E c 


(6) *+” RU *—” {бї 


СЕВ НЫД Е ES “十”"”， 则 在 格式 说 明 的 左 端 放 一 个 “十 ”格式 
符 ， 如 果 在 格式 说 明 的 右 端 有 一 个 “十 ”格式 符 ， 则 在 输出 的 数值 后 面 加 上 数 符 〔 正 号 或 负 
号 )。 如 果 在 格式 说 明 的 右 端 有 一 个 “一 ”格式 符 。 则 在 输出 正 的 数值 时 该 们 置 为 空格 , 输出 
负数 时 该 位 置 上 有 一 负 号 。 

10 INPUT A 

20 PRINT USING “+ # # #. H”; А 

30 PRINT USING “# # H. +”, A 

40 PRINT USING “# ##.#—”;, A 


RUN RUN 
° 12.5 ? —12. 5 
.十 12.5 -—12.6 
.12.5+ —_12.5— 
-12.5 ‹12.5— 
НЕЕ ЕНН ЕЕ — 4 “—” 5, РЕЗЕ ЕН. ЕЕ ЕРТ “个 
“rg ` 
53 PRINT USING “— # # t. # 7312.5, —12.5 
RUN 
—— 12.5 —12.5 
“7]“, ”格式 符 


用 来 对 输出 数据 的 整数 部 分 如 分 位 号 (从 个 位 数 起 从 三 总数 之 间 加 一 个 逗号 ) 。 如 果 数 值 
不 超过 三 位 数列 不 输出 逗号 ， 此 时 格式 串 中 的 逗号 位 置 可 用 一 个 数字 式 替 《〈 握 “ 共 ” 必 力 相 
FD. 格式 说 明 中 “,* 的 位 置 可 专 出 现在 小 数 点 谋 边 任何 位 置 上 。 

5 А=112.4; В—3218. 65; C=17521,2 ` 

10 PRINT USING “x < $ HHE. #” А,В, C, 

20 PRINT USING “x < $. RRE. B,” А,В, C 


RUN 
жж ж $112.4 < $3,218.7 S17,621.2 x x ж $112.4, * $3,218.7, $17.521.2. 
一 
A B c A B с 


ОЕ ЕЈР RRRA ESERE 接 上 述 规定 输出 。 从 格式 说 明 中 可 以 看 到 小 
数 点 左面 有 7 个 字符 ,因此 每 个 输出 数 信和 的 小 数 点 左面 也 应 相应 地 有 7 个 字 答 〈 包 括 “* ”， 
“$”，“,” 号 和 数字 )。10 语句 的 输出 项 C 后 面 有 一 泡 号 , 其 作用 是 输出 不 换行 . ЕК МГ 
印 语句 接 兰 在 司 一 行 上 输出 。c 后 面 也 可 不 用 去 号 面 月 分 号 ， 作 用 容 同 。20 谨 名 的 格式 说 时 
PARTES. HRAPAR EFA ERREFE, RRR RF AE. 

(8) *` - " RRA 

在 格式 说 明 的 右 端 如 果 有 耻 个 “”” 符 号 ， 表 示 按 指数 形式 输出 。 

10 A=728.912, B=12. 48767 

20 PRINT USING AH. НЯНГ +нн. #7771”, А,В 

RUN 
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7. 2B9E+02 124. 88E—01 
A B 
请 注意 ; 格式 说 明 中 “”” 前 面 的 格式 符 指 定 了 输出 时 指数 形式 数据 中 的 数字 部 分 的 格 
式 ( 而 不 是 按 标准 的 指数 形式 输出 )。 输 出 时 将 有 效 数字 尽量 向 左 端 谷 ， 正 数 前 应 留 一 空格 ， 
所 以 输出 A 的 数字 部 分 为 “_7. 289”， 其 后 的 数字 会 去 ,指数 部 分 显然 应 为 “E 十 02”, 这 样 才 
使 A 的 值 与 给 定 的 一 致 


(9)“_” 格 式 符 

下 划 线 “ ”表示 其 后 一 个 字符 作为 文字 字符 原样 输出 。 
10 INPUT A 

30 PRINT USING “Ë й. ## %”; A 

RUN 

? 37.865,/ 

37.87%, 


(AO 格式 串 中 如 出 现 非 格式 字 符 ， 按 原样 输出 。 

PO PRINT USING “THIS IS EXAMPLE _ # #”; 1 

RUN 

THIS IS EXAMPLE #1 

注意 格式 串 中 两 个 “ 妇 ” 中 的 第 一 个 由 于 其 前 有 一 “ ”号 ， 因 此 它 作为 文字 字 答 原样 
输出 ， 而 不 作为 格式 符号 去 代表 一 个 数字 位 置 。 


10.2.2 用 PRINT USING 输出 字符 囊 


а) “1 格式 符 

规定 只 显示 输出 项 《字符 串 ) 中 的 第 一 个 字符 。 

10 PRINT USING “1”; “Operating”, “System” 

RUN 

os 

D E RRA 

使 字符 囊 按 原样 输出 。 

10 PRINT USING “{”; “Chinese”; 

20 PRINT USING “&”; “CDOS” 

RUN 

CCpos 

(8) *NCn {ш >\” 

表示 输出 的 字符 串 长 为 《za +2), 如果 原来 的 字符 囊 长 大 于 n 十 2， 则 将 右 端 多 余 字 符 会 
去 ， 如 小 于 = 十 2 ， 则 输出 时 字符 向 左 靠 ， 右 补 空格 。 

10 PRINT USING “N N”; “FORMALA”; 

20 PRINT USING “N... N” “TRANSLATION”; 

30 PRINT USING “NN”; “o”; 
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40 PRINT USING “vv e A; “LANGUAGE” 

RUN 

FORTRAN, ‚ LANGUAGE ,, 

10 语 名 中 的 格式 溃 在 两 个 “\” 之 间 有 一 个 空格 ,因此 可 以 输出 三 个 字符 “FOR”， 问 理 
20 语句 可 以 输出 4 个 字符 ,30 语句 可 以 输出 2 个 字符 (两 个 “\” 之 间 尤 空格 , PB an 一 0)， 故 
输出 二 个 空格 。40 语句 可 以 输出 9 个 字符 , 而 “LANGUAGE” 只 有 8 个 字符 ， 故 右边 补 一 空 
格 。 


PRINT USING 语句 可 以 这 样 理解 : 使 用 (英文 USING 的 意思 是 “使 用 ”) 所 指定 的 格式 
输出 。PRINT USING 的 规定 繁多 ,不 好 记 . 也 不 必死 记 ， 用 多 了 就 自然 记 住 了 Ж] - 
下 手册， 或 上 机 斌 一 下 即 可 。 


S10.3 汉字 的 输入 输出 


到 月 前 为 赴 ， 我 们 用 BASIC 程序 所 打印 出 来 的 信息 都 是 由 英文 字母 数字 或 ， 些 专用 符 
号 ӨШ+, —, ж AL <, >) 组 成 的 。 对 于 象 中 国 这 样 一 个 非 英语 国家 ， 如果 持 印 出 
来 的 报表 都 是 月 英语 或 汉字 拼音 来 表示 ， 供 人 阅读 ， 显 然 是 很 不 方便 的 。 要 使 计算 机 真正 得 
到 普及 ， 用 于 各 个 领域 (特别 是 事务 管理 领域 )， 必 须 解决 汉 化 的 问题 ， 就 是 说 ， 用 汉字 打印 
出 所 需 的 信息 。 

怎样 把 一 个 原来 不 能 使 用 汉字 的 计算 机 系统 变 成 一 个 能 处 理 汉字 的 计算 机 系统 呢 ? 这 需 
要 解决 以 下 凡 个 问题 。 

D 人 确定 如 何 用 - -个 代码 〈 一 组 字母 或 数字 ) 代表 “个 汉字 的 方案 。 例 如 电报 码 就 是 
种 用 数字 代码 代表 一 个 汉字 的 方法 ,日 前 国内 已 提出 500 多 种 汉字 编码 方案 ,各 有 优 缺 点 、 
个 汉字 计算 机 系统 应 当 可 以 选用 个 或 几 个 汉字 编码 方案 ， 供 用 户 选 择 使 用 其 中 的 一 种 。 

O 傅 定 编码 与 二 进 制 数 之 间 转 换 的 方法 。 我 们 已 经 知道 ， 一 个 字符 可 以 用 一 个 二 进 制 
的 代码 表示 《〈 便 如 可 以 用 AScI 代码 表示 一 个 字符 ), 同样 ， 需 要 傅 定 如 何 用 - “组 二 进 制 代码 
代表 一 个 汉字 。 也 就 是 说 ， 给 定 个 汉字 的 编码 之 后 ， 如 何 把 它 转变 为 一 组 -- 进 制 的 代码 。 

O 需要 有 一 个 “汉字 库 ” 存 放 常 用 的 汉字 《实际 上 是 汉字 的 代 但 )， 以 各 调用 ， 汉 字库 
可 以 通过 两 种 方式 实现 : 

他 用 硬件 实现 ， 装 一 个 硬件 板 ， 即 “汉字 卡 ”， 它 实际 上 是 一 个 包含 相当 数量 的 汉字 和 汉 
字 功 能 的 硬件 板 , 把 它 播 在 主机 的 扩充 槽 上 , 就 可 以 做 到 在 对 计算 机 不 作 任 何 眉 改 的 情况 下 
除了 可 以 实现 诛 有 的 西 文 功能 之 外 ， 还 可 以 处 理 汉字 ，。 

加 用 软件 实现 。 和 在 一 张 或 若 于 张 软 磁 稚 上装 入 汉字 各 其 代码 ， 当 稍 要 处 理 汉 字 时 ， 在 用 
户 输入 某 一 汉字 的 编码 之 后 ， 计 算 机 就 从 磁盘 上 找 出 相应 的 汉字 ， 把 它 调 入 内 存 ， 程 序 就 可 
以 使 用 它 了 。 

国家 标准 GB2312 - 80 规定 3755 个 常用 汉字 为 “ BRE”, 把 另外 3008 个 次 常用 汉字 
定 为 二 级 汉字 ”。 

(4) 为 了 使 程序 能 调用 汉字 库 中 的 汉字 ， 需 要 对 原来 系统 使 用 的 软件 作 适 当 的 修改 ， 有 有 
两 种 不 同 的 办 法 来 达到 此 日 的 ， 

全 不 修改 操作 系统 , 而 修改 BASIC 解释 系统 , 使 之 增加 处 理 汉字 的 功能 。 即 将 原来 的 BA- 
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SIC 解 娃 系统 改 成 汉字 BASIC RAR. BASIC 中 原 有 的 全 部 功能 都 保留 

OREK BASC 解释 系统 , 衣 收 改 操作 系统 ,这样 BASIC 通过 操作 系统 也 可 以 调用 汉字 
库 中 的 汉字 。 例 如 ，IBM - PC КИЛУ HR: DOS 操作 系统 只 支持 西 文 处 理 、 而 祝 字 操作 CC- 
DOS ШЗ 380 тр УЕДЕ. 现在 很 多 计算 地 系 统 (例如 TBM — PC 和 APPLE I) 都 有 汉字 操作 
系统 ， 除 了 作 BASIC 程序 中 可 以 遍 用 汉字 俱 ， 其 它 语言 程序 也 可 以 使 用 汉字 。 

《5) ERAEN СЛЕТА FX 一 100，24 计 打印 机 M- 2024 Ж), 

因此 ， 并 不 是 任何 一- 个 计算 机 系统 部 能 直接 使 用 汉字 的 、 必 须 具备 以 上 几 个 某 件 。 对 一 
个 具体 的 计算 机 而 言 ， 主 要 应 具备 三 术 条件 约 《33 和 (4), MX. ERR (3) 和 0), B 
预 事 先 确 定编 税 方 案 和 编 玛 与 二 渤 制 代码 间 钓 转换， 如果 一 个 计算 机 系统 不 带 汉字 库 ER 
TRLO. 又 没戏 系统 软件 CHE Ж SR LEE ДЕ {ЖИМ ЕДЫ. MAEA ЯСЕ 
SAF. 

查 语 避 序 运行 孜 能 打印 出 汉字 ， 首 先 诬 该 向 计算 机 输入 汉字 。 扬 于 各 种 汉字 编码 方案 各 
ЖЕЕ. ШЕ АЛЕША. (ЙАЗ ЗИ. 应 当先 了 解 所 用 计算 机 选择 的 是 哪 

-和 汉字 编码 方案 。 
芭 管 涡 碍 方案 有 儿 痛 种 ， 伺 从 根本 上 上 说 分 成 硕大 类 , -KE WER. MRR ETR 
š 和 将 它 拆 成 几 部 分 ， 每 一 部 分 用 一 个 字符 来 代表 ,例如 APPLE 了 荆 上 使 月 的 “ 仓 额 编 
EA HT E E, DR kE” SRD. E V RE “ku, 用 “G” 代 表 “ 上 ”， 
А *vGG" RARA “7 T. 日 前 网 内 资 行 的 “五 笔 字 型 ” 污 也 属于 : WER ИЯ -类 是 
“拼音 法 “， 用 汉字 的 拼音 来 代表 ТТ. ХӨ ЛЕЛЕ. ЖЕП IRA 

下 面 介绍 长 城 6520 (IBM – РС) 使 月 汉字 的 方法 。 

先 将 CCDOS 调 入 计算 机 为 竺 ,可 将 CCDOS BI fE A НЛ Н 5) ( 接 通 电源 ?或 
Bahia Cheek “C” g+ AN E+ De” g BDE. ссроѕ 启动 后 ， 系 统 即 进入 中 
西 文 混合 工作 方式 。 这 时 系统 允许 使 用 4 种 汉字 输入 方式 和 一 种 西 文 输入 方式 ,4 各 汉字 给 入 
方式 为 ， 洒 标的 位 码 、 人 宇内 首尾 硝 、 议 滞 潮 次 码 和 快速 编码 法 。 西 文 输入 方式 是 直接 从 键盘 
键入 字符 ， 并 月 动 转换 成 ASCI 三 输入 到 计算 山内 人 存 。 不 同 的 输入 方式 可 以 互相 转换 。 

用 以 下 方法 选择 编码 方案 :《 同 半 芒 “Alt” 键 和 功能 键 “F1” 一 “FE6”) ， 


ALT> 1 区 位 玛 
<ALT>+F2 首尾 玛 
«АТ 十 F3 F 221 
<ALT2> +F4 Tak ipa 
< ALT>- 十 FE ASCII T 


Bln. УЛ ЖоК ДЕА Hi ЕЙ A R E, [АНЕ КИЧ EAS <CALT EE F3 
键 。 如 果皮 使 用 区 位 法 输入 汉字 , ГЭЕ АТТЕН РТ 键 。 如 果 想 从 议 字 输 入 状态 转换 
成 西 文 输 入 (В ASCH 公 输 入 )， 可 可 时 按 一 ALT> 键 和 F6 E. 

下 面 以 广 证 使 用 的 拱 音 给 入 法 为 例 ， 介 绍 如 何 给 入 -- 个 汉字 。 2 

一 个 没 字 调 相应 的 拼音 ， 例 如“ 初 ” 字 的 护 音 为 “CHU”， 应 从 键盘 输入 “CHU”, 为 了 减 
少 苹 键 的 次 数 ， 对 一 些 声母 或 夜 音 (如 CH, ZH……) 用 -个 压缩 代用 字母 来 表示 , 下面 是 代 
用 字母 表 : 
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拼音 zh | ch | sh | eng | ang | ai | ing | еп | ung | ei an ong ou 


REFS а i ч g h 1 y f v k | е А s ° 


W, RA “CHU” Bf, БОА “ш” (GR “CH” JH] а” fk). Ak а" 9, W 
示 屏 最 下 面 一 行 会 显示 出 : 


拼音 I: 0, 81: K2: #13. 3⁄4, # 5, 06. #Ё7. 察 8: @ 9, 35 [264] 


表示 以 拼音 “CH” 开 头 的 汉字 共有 274 个 〈 已 显示 出 10 个 ， 还 有 264 个 )。 你 再 输入 
字母 “U”， 此 时 显示 屏 显示 出 : 


拼音 I0: 0.371, 出 2: 93, BL 4, Be 5. #6. 47, Wk 8, 除 9: 楚 [064] 


表示 拼音 “CHU” 所 对 应 的 汉字 共有 74 个 (显示 出 10 个 , 还 有 64 个 ,它们 都 是 同音 汉 
字 )。 你 可 根据 需要 选用 其 中 一 个 。 现 在 “ 初 ” 字 已 在 显示 出 的 10 个 汉字 范围 之 内 ， 从 显示 
屏 上 看 到 在 这 10 个 汉字 中 ,“ 初 ”是 第 “0” 个 。 按 下 “0” 键 ， 则 表示 选择 “ 初 ” 字 ， 屏 莫 
上 方 出 现 汉字 “ 初 *， 这 就 输入 完 一 个 汉字 。 如 果 所 需 的 汉字 不 在 这 10 个 汉字 范围 之 内 ， 可 
按 “>>” 键 ， 计 算 机 会 再 显示 出 另外 10 个 同音 的 汉字 ; 如 这 10 个 汉字 仍然 不 是 所 需 的 ， 可 
接 一 次 “之 ” 键 ， 直 到 找到 所 需 的 汉字 为 止 。 在 输入 完 一 个 汉字 后 ， 显 示 屏 最 下 一 行 所 显示 
的 提示 汉字 消失 ， 如 你 需要 接着 输入 第 二 个 汉字 ， 可 重复 以 上 过 程 。 

一 个 汉字 的 代码 最 多 由 3 个 英文 小 写字 母 组 成 。 

在 程序 中 哪些 地 方 可 以 出 现 汉 字 呢 ? 

@ 注 释 语句 中 。 如 : 

10 REM 企业 管理 程序 

OFA Ep, WM: INPUT“ 请 输入 姓名 ”; МАМЕ 

千 万 注意 ,， 决 不 要 以 为 可 以 写成 下 面 这 样 ， 

10 打印 “欢迎 ” 

所 有 BASIC 语句 的 语句 定义 符 《〈 如 PRINT, FOR, NEXT, IF, THEN ，GOSUB…… 等 ) 仍 
一 律 用 英文 表示 。 

我 们 如 果 想 输入 下 面 一 个 语句 : 

10 PRINT “ 姓 名 ” 

在 CCDOS 支持 下 ， 调 入 BASICA ， 屏 幕 出 现 “OK”。 此 时 校 西 文 的 方式 输入 ， 

10 PRINT " 

现在 应 该 输入 汉字 “ 姓 ” 字 。 接 前 面 介 绍 的 ， 同 时 按 <ALT> 键 和 ЕЗ 键 ， 转 到 “汉字 输 
入 ”的 状态 。 然 后 按 以 上 介绍 的 办 法 输入 “ 姓 ” 字 的 拼音 “XING”( 实 际 上 是 输入 “XY”， 因 
A “мо” 以 “Y” 代 赫 )。 从 显示 前 一 批 汉学 中 选 出 “ 姓 ” 字 ,然后 接 二 次 空格 〈 因 为 一 个 汉 
字 占 二 个 西 文字 符 宽 度 )。 然 后 再 用 同 祥 的 办 法 输入 “名 ” 字 。 

下 一 步 应 输入 双 引 号 ,应 先 脱离 汉字 输入 状态 转 成 西 文 输入 状态 ASCI 码 输入 )。 同 
ВНЕ <А FS 键 ， 回 到 西 文 状态 、 项 入 双 引 号 键 . 至此， 已 输入 了 : 
10 PRINT “姓名 ” 
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再 接 “ 回 车 ” 键 ， 此 语句 就 适 到 内 存 中 了 。 用 同样 的 方法 输入 其 它 语句 。 

ЕРА АЕ ИРЕ (或 其 它 专用 字符 ), 如 “姓名 (NAME)”. 当 
然 可 以 在 输入 完 “ 名 ” 字 后 按 <<ALT>> 和 F6 刍 回 到 西 文 状态 再 输入 ，(NAME) 。 旧 是 从 屏幕 
巨 以 看 到 字母 字符 比 汉字 小 一 半 。 如 果 想 使 ASCII 字符 和 汉字 一 举 大 (输出 字符 囊 时 也 -- 样 
大 )， 可 以 同时 按 <CTRL>> 和 РЭ 键 , 使 系统 进入 纯 中 文 工 作 方式 , 然后 再 输入 “(NAME)”， 
这 时 “ (NAME)” 与 汉字 一 样 大 小 再 按 一 次 <CTRL>> 和 F9， 系 统 又 回 到 中 西 文 工 作 方 式 ， 
可 以 接着 输入 语句 中 的 其 它 字符 。 

除了 可 在 程序 中 使 用 “汉字 字符 串 ” 外 ， 还 可 以 用 INPUT ФЕ] AE, fn. 

10 INPUT A$ 

执行 10 语句 时 ， 出 现 “?”， 可 用 上 面 的 方法 输入 汉字 。 如 : 

? 北京 x 
е! ERR “ДЕД” ЮТУ АЗ, 应当 说 明 ， 一 个 汉字 在 内 存 中 占 -个 字 节 ， 

AAF (R ASCII 码 表示 的 字符 ) 只 占 一 个 字 节 . 

下 面 简 可 介绍 如 何 打印 汉字 

长 城 0520 (IBM - PC) 可 以 打印 出 汉字 , 低 必 须 使 用 相 适 配 的 打印 机 (如 FX10¢, M2024 
等 )。 如 里 用 的 是 M2024， 则 在 用 打字 机 打印 汉字 之 前 ， 应 打 入 以 下 命 : 

A>202sP y” 

此 时 就 可 打印 出 中 西 文 信息 。 n[ L Е ВЕЛ RE. 有 16 天 字 型 【 字 的 大 小 和 
FERRERED, AAH A, B,C, D, E, F, G, H, L J, К, 上 L、M、N、D0、P 十 六 个 字 
母 来 代表 , 供用 户 选择 . AME EEFT pa ITE, ИНЕТ “CTRL” A 
<F10” 刍 之后， 屏幕 上 将 显 耻 : 

打印 字号 (ATP; _ 纸 宽 80—134); 
^ 
光标 
RAMOS DE А. A 到 P 之 间 的 一 个 字符 . Кт ЖОН ДИТИ ER (80 一 134);” 之 后 ,请 你 
输入 行 宽 。 

ШАЯ РХ 100 打印 机 ， 则 不 键入 “2024P” 命 令 ， 而 键入 “ALL9P”， 即 : 

A>ALLSP „ 

可 以 用 “Ctrl” 十 “Prtse” 键 的 办 法 实现 联机 打印 “与 屏幕 显示 同步 打印 )， 也 可 以 用 
“SHIFT” 一 “Prtse” 键 实现 “屏幕 硬 考 贝 ” паж гв ият k, в 
在 有 的 兼 空 机 上 不 能 用 这 个 方法 .。 

也 可 以 不 用 以 上 办 法 而 在 程序 航 打 印 语句 中 设 定 字形 。 用 CHR S (27); “I”, “< 字形 代 
B>” KEEFE., W 

10 PRINT СНЕ $ (27); “1”; “D”, “PEARRAE” 

20 PRINT СНЕ ф (27); “1”; “C”, “北京 ” 

10 语句 中 的 “D” 和 20 语 名 中 的 “c” 就 是 字形 代码 。 它 将 打印 呈 了 形 字 (大 号 ) “中华 人民 
共和 国 ” 和 C 形 字 AARD “LR”. PRINT 语句 在 显示 屏 上 输出 ， LPRINT 语句 在 打印 机 输 
He 

ЖЖ РЕН A S. ДЕЛ, ЁТЕ НЕШ ЕЕЕ, п} ЖН Р. 
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$104 “菜单 ”技术 


一 个 较 大 的 应 用 夭 池 往往 包含 基 十 个 机 对 独立 的 民 雪 ， 每 个 模块 实现 -个 功能 ， 例 如 
“学 生成 绩 处 再 程序 ”可 以 包车 :〈1) 输入 数据 ; D 收 改 数据 : (3) 求 各 班 平均 成 绩 ，:4) 
求 各 科 平 均 成 绞 ，(5》 找 出 不 及 格 的 学 生 名 单 ， 岂 户 在 使 用 这 个 程序 时 有 时 只 需要 用 到 其 中 
-个 功能 《例如 只 需求 各 入 平均 成 线 )， 这 时 用 户 可 以 指定 程序 执行 某 一 模块 。 

为 了 方便 腊 户 ， 得 序 往往 设计 成 在 屏幕 上 列 出 可 供用 户 造 拌 的 切 散 ， 让 用 户 选 择 并 输入 
有 关 信 息 ， 程 序 就 去 快 行 相应 的 并 块 。 蜀 如 ， 在 辟 幕 上 娃 示 出 如 图 10. 1 所 示 的 信息 。 


И. | ЕЕЕ 
L A Т | - ПЕШКЕ K“ 
аша з. ЖКА ЕЙ 
Í š НМ з. 打印 物理 不 及 格 名 总 
+ HERRE EM я. ТАЗА е 

кйш 5. Eig 

ЕЕЕ ЕС Ает TH: _ 

图 10.1 图 10.2 


АО “Же” (ШЫЖЕ ак). 用 广 只 需 输 入 ! 5 之 间 的 -- 个 
数字 , 程序 就 去 执行 该 数字 所 怀表 的 功能 模块 。 这 大 方式 是 采取 人 -机 交互 方式 ,有 充分 的 提 
示 信 息 ,使 慷 方 便 灵活 ， 用 户 可 不 了 解 程序 的 内 部 结构 ， 妈 需 根 据 “ 英 单 ” 蕉 提示 输入 -一些 
简单 的 数据 有 uf 调用 相关 功能 。 现 在 许多 记 用 程 宇 部 广泛 应 用 这 琐 “ 蔷 单 ” 技 术 。 

可 以 有 多 加 菜单 . 鲍 如 在 用 请 敲 人 “4” 要 打印 不 尼 格 学 生 和 名单 。 此 时 得 序 又 车 屏幕 上 亚 
不 如 图 10, 2 所 示 的 二 级 菜单 。 

用 户外 输入 “2”， 则 得 序 打印 英文 课 不 及 格 的 各 单 。 

实现 菜单 方式 钓 大 础 是 举 序 的 磺 块 化 作 层 次 化 。 梳 序 设 计 人 员 娄 善于 将 程 字 分 解 或 才干 
个 独立 性 较 高 的 模 康 ， 一 个 模 计 中 又 邓 分 为 若 十 个 小 模块 ， 这 就 是 层次 化 ， 见 图 10. 3. ,这 只 
Ж -示意 性 的 障 子 。 

在 程序 设计 中 对 进行 两 方面 的 设计 ， (1) ЗН “ЭЙ”, 即 在 屏幕 适当 的 位 置 上 用 所 沉 字 
形 、 卡 需 颜色 显示 菜单 握 示 文字 ;2)》 设计 各 功能 模块 。 也 就 是 深 照 模块 化 、 层 次 化 的 此 求 
设计 和 保 序 。 一 股 几 一 个 子 程序 来 实现 一 个 功能 ,层次 化 是 用 子 程序 构 父 来 实现 的 。 

FI r ЕЛВЕ, 

10 REM 学 生成 绩 处 理 程序 

20 С\З. OFE; LOCATE 1, 17; PRINT STRING $ (40, “= "J 

30 PRINT ТАВ (17); “z”, TAB (56); "=" 

10 PRINT ТАВ (17); STRING $ (40, ^+”) 

50 LOCATE 2. 25; PRINT “学 ,生成 #Ң Pb ЖОЛЫ JE" 

60 LOCATF 4. 24: PRINT “1. АЕРДЕ” 

70 PRINT ТАВ (24), “2， 统 计 各 班 成 病 ” 


80 PRINT ТАВ (24); “3. 统计 各 科 成 缚 ” 

90 PRINT ТАВ (24); “4. ЖАНЕ E 3” 
100 PRINT ТАВ (24); “5. jBHi" 

110 LOCATE :0, 16, PRINT “RRA РЕБ, ", 
120 KS =INKEY $: IF Кф —“* СОТО 120 

130 K<=VAL(K $); PRINT К 

140 IF K<1 OR K>5 THEN GOTO 110 

150 IF K=5'THEN END 

160 CIS; ON K GOSUB 1000, 2000, 3000, 4000 
170 GOTO 20 

180 END 

1000 REM “AREGO FEF 


1900 RETURN 
2000 REM “НАЗК” THE 


2903 RETURN 
5000 REM “SHARRA” PEF 


3900 RETURN 
1000 REM ТЕЖА НЕЕ а" РЕЯ 


4900 RETURN 


ти: мз 


ЕЗ 


ЕРТЕГ 


А R 38 


910.3 
程序 中 20—110 4ТЕН В УА “ЖИЙ”. ЕР ЖАКЕ (MAZE K) KERS 
р Е. ВИЗЕ Е, ЯЕ. HB Fu au kakun. HEA 
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“5” 表 示 不 需 作 任 何 工作 ， 程 序 结束 。 清 注意 ， 在 用 汉字 显示 时 ， 屏 幕 只 能 显示 11 行 汉字 、 
如 用 “LOCATE 12，17” 是 不 行 的 。 列 数 的 计数 与 西 文 方式 相同 ， 但 应 考虑 一 个 汉字 占 -- 行 ， 
空格 占 一 行 . 上 人 鲍 也 可 以 不 用 LOCATE 语句 定位 ,而 只 用 PRINT 语句 和 TAB 函数 控制 输出 位 
Е. 

如 果 有 二 级 菜单 (如 图 10. 2 所 示 ), 可 在 子 程序 (如 在 以 4000 洛 句 为 起 始 行 的 子 程序 ) 中 
再 显示 二 级 菜单 并 用 ON GOSUB 语句 转 到 内 柑 的 子 程序 , 执行 完 内 嵌 的 子 程序 后 返 岂 上 - Jë: 
的 子 程序 ， 此 时 应 再 显示 二 级 菜单 ， 轴 户 可 再 从 中 选择 。 当 不 需要 从 开 级 菜单 中 选择 。 就 键 
入 “退出 ”项 所 在 的 项 目 号 (如 图 10.2 中 的 “5”)， 返 回 主 菜单 。 

以 上 介绍 的 只 是 最 基本 的 方法 。 读 者 可 在 此 基础 上 再 作 进一步 的 加 工 , 使 之 更 完善 美观 、 
HEER. Hm, KEER; 反 相 显 示 ; 不 用 键入 项 目 号 而 用 移动 光标 的 方法 《如 把 光标 移 
到 “3” 处 按 “ 回 车 ”就 意味 着 选择 “3”)， 等 等 。 

使 用 “菜单 ”技术 ， 要 综合 运用 有 关 知 识 模块 化 、 层 次 化 、 汉 字 输 入 输出 、 屏 幕 控 制 
Ж), 希望 读者 在 今后 编写 实用 的 程序 时 能 尽 其 使 用 菜单 技术 ,以 方便 用 户 。 作 为 程序 设计 人 


员 要 始终 把 “为 用 户 着 想 ” 放 在 第 一 位 ， 树 并 “用 户 第 一 ”的 思想 。 
у A 


10.1 根据 你 的 经 验 , 在 输入 输出 中 最 容易 出 现 那 些 “ 事 与 愿 违 ”的 情况 ? 请 一 … 列 出 。 
用 什么 方法 处 理 以 避免 出 错 : 

10.2 ”怎样 提高 输入 数据 的 可 党 度 ? 有 哪些 办 法 ?比较 这 些 办 法 的 优 缺 点 和 适 由 范围 。 

10.3 设 4 一 578.675, B= 8732.63, C 一 6.7234， 用 下 列 PRINT USING 语句 输出 A, 
B，C 的 值 ， 得 到 什么 结果 ? 

(1) PRINT USING “##Е#Н”, А, B, C 

(2) PRINT USING “HHEH”; А, B, C, 

(3) PRINT USING “HHHEH.HH”; А,В, С 

(4) PRINT USING “нид. ttt. thu 林寺 ,井村 六 ”A,B 

(5) PRINT USING “x «ЕЕН. НЕН SEHH. H + SHH BH” A, 


B, C 

(6) PRINT USING “НЯН, ФЕН НЯНЯ. HR hhi. HH” A, B, 
c 

(Т) PRINT USING “HHHH, H sx HEHN. й. RH”AN,C 

(8) PRINT USING “НЕ 77 ЕЖЕ ЫЫЫ ###` “i, 
А,В,С 


(9) PRINT USINO “к=##. ## "А, B, C 
10.4 写 出 下 面 语句 的 输出 结果 ， 
(1) PRINT USING “|”; “Beginners”; “Al -— purpose”; “symbotie”, “Instruction”; 
“Code” 
(2) PRINT USING “N... IN, “China daily”, “BASIC Language”; 
(3) PRINT USING “b”; “BASIC”, “Program” ' 
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(4) PRINT USING “This is a ë o”; “BASIC”; “Program!” 

10.5 要 在 计算 机 系统 上 使 用 汉字 但 要 具备 哪些 条 件 〈 软 、 硬 件 杀 件 )? 请 考察 你 所 用 的 
系统 具备 了 哪些 条 件 ? 能 否 使 用 汉字 。 

10.6 在 BASIC 程序 中 哪些 地 方 可 以 使 用 汉字 ? 哪些 地 方 不 允许 使 用 汉字 。 

10.7 你 所 用 的 计算 机 系统 能 够 使 用 哪儿 种 汉字 编码 方案 。 你 认为 各 有 什么 优 缺 点 ? 你 
兴 为 哪 种 比较 方便 易学 。 

10.8 在 屏幕 中 央 用 大 字 显 示 “ 中 华人 民 共和 国 ” 

10.9 用 四 种 大 小 不 同 的 字形 在 屏幕 同时 显示 “BASIC 程序 设计 ”字样 。 

10.10 完成 本 章 Š 10. 4 介绍 的 程序 ， 并 运行 之 《写成 完整 的 程序 ) 

10.11 在 上 题 的 基础 上 ， 变 化 菜单 的 形式 ， 

(1) 将 图 10, 1 的 第 一 行 和 最 后 一 行 用 反 相 显示 (〈 即 背景 和 前 景 的 颜色 开 换 ) 。 

(2) OO 的 要 求 改 为 闪烁 形式 。 

(3) 不 用 键入 数字 的 方法 而 采用 移动 光标 的 方法 ， 将 光标 移 到 某 一 项 目 导 处 按 回 车 键 即 
表示 选择 该 项 。 

10.12 请 自己 设计 一 个 程序 ， 用 菜单 技术 。 程 序 内 容 是 “小 学 生 数 学 游戏 ”"， 包括 D 
程序 给 出 两 个 二 位 随机 整数 ， 让 小 学 生 回答 这 两 个 数 的 和 。(2) 程序 给 出 两 个 两 位 整数 ， 要 
求 相 减 《注意 应 该 大 数 减 小 数 )。(3) - -个 一 位 整数 和 一 个 二 位 整数 相 乘 。(4) -个 二 位 整数 
除 以 一 个 一 位 整数 , 求 其 商 的 整数 部 分 。 以 上 四 个 部 分 都 各 出 10 题 , 每 题 回答 一 次 ,对 一 是 
得 10 分 ， 最 后 给 出 成 绩 。 愉 菜单 中 可 任 选 -种 游戏 ， 可 和 任 选 多 次 〈 多 种 }， 直 至 不 想 玩 为 
i. 
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第 十 一 章 X Ж 


8$11.1 文件 的 基本 概念 


到 目前 为 止 , 我 们 在 运行 程序 时 所 用 的 输入 输出 设备 主要 是 终端 (最 孙 惕 和 打印 机 ). Ж 
FAROR ZITEN AA 几 完 后 从 内 存 请 失 , 下 次 再 需要 运行 时 再 重新 输入 程序 信 数 据 。 
这 是 很 不 方便 的 。 现 在 几乎 所 有 的 计算 机 系统 可 以 使 用 磁盘 〈 硬 盘 或 软盘 )， 可 以 将 程序 和 数 
据 存 喧 在 磁 敌 上 ， 址 要 用 时 再 从 磁盘 上 将 程序 调 入 计算 机 内 在， 运行 时 所 需 数 据 亦 从 磁 玲 上 
读 取 。 这 禅 能 使 程序 与 数据 长 期 保存 备用 ， 义 能 做 到 数据 共享 在 放 在 磁盘 上 的 数据 可 以 为 
多 个 程序 使 用 。 

一 般 所 说 的 “文件 ” 指 的 是 “外 部 文件 ”， 它 是 存放 在 外 部 介质 上 数据 的 集合 .一 批 数据 
是 以 “文件 ”的 形式 存放 在 外 部 介质 上 的 ， 对 存 贮 在 外 部 介质 上 的 数据 的 存 取 都 是 以 文件 为 
对 象 进 行 的 。 个 源 程 序 存 放 在 磁盘 上 ,就 是 一 个 “产程 序 文件 ”每 一 个 文件 都 全 个 文件 
名 以 资 识别 。 打印 在 纸 上 的 一 个 程序 ， 订 以 称 为 - -个 “打印 文件 ”。 


11.1.1 文件 的 分 类 


可 以 从 不 同 的 角度 对 文件 分 类 : 

1， 从 文件 的 内 容 来 区 分 , 可 以 分 为 程序 文件 和 数据 文件 两 大 类 ,前 莉 存 喧 的 是 程序 〈 林 
以 是 源 程度 或 目 慰 程序 )， 后 者 存 贮 的 是 程序 运行 时 所 用 到 的 输入 或 给 出 的 数据 ， 

2， 从 存 贮 信息 的 形式 来 区 别 ， 可 以 分 为 ASQI1 文件 和 二 进 制 文件 。 前 少 是 以 ASOI 代码 
(字符 代码 ) 形 忒 在 放 的 ， 后 者 是 以 机 上 内存 贮 数据 的 形式 〈 二 进 制 存 肚 形式 ) БЕ. 

3， 从 文件 的 组 织 形 忒 来 区 分 ， 数 据 文件 可 分 为 顺序 文件 和 随机 文件 ( 见 本 音 11.3 和 和 
$ 11.4). 

4 ， 按 存 贮 介质 来 区 分 ， 可 以 分 为 ,磁盘 文件 、 礁 带 文件 、 打 印 文件 、 卡 片 文 件 等 。 


11.1.2 文件 与 记录 


一 个 文件 是 由 若干 个 记录 (Record) 组 成 的 。 也 就 是 说 ， 一 组 数据 构成 一 个 忆 琴 ' T t 
记录 构成 一 个 文件 。 困 此 ， 文 件 也 可 认为 是 记录 的 集合 ， 记 录 是 数据 的 集合 。 从 文件 中 法 出 
数据 是 以 记录 为 最 小 单位 的 ， 也 就 是 说， “次 读 取 一 个 记录 中 所 包含 的 全 部 数据 〈 听 不 能 只 
读 记 录 中 的 一 部 分 )。 记 录 的 长 度 以 字 节 表 示 。 MS BASIC 允许 一 个 记录 的 区 度 为 1 一 32767 个 
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1.1.3 文件 名 


为 了 标识 一 全 文件， 每 个 文件 都 应 该 有 它 的 文件 各 。 同 一 介质 上 不 能 有 两 个 相同 的 文件 

名 。 MBASIC 规定 文件 名 的 形式 为 : 
[到 盘 符 > :- 二 文件 名 > Г 去 扩展 名 >] 

AR- - 即 微 盘 所 在 的 驱动 器 号 ， 通 常规 定 A 代表 第 一 磁 盐 驱动器，B 代表 第 “上台 磁盘 
RIR, BAE 定 要 加 号 号 。 当 盘 符 和 冒号 缺 省 时 ， 隐 含 指 当 前 下 在 工作 的 “当前 驱动 

文件 名 一 -实际 上 是 文件 名 的 十 干 , 一 般 由 1~8 个 字符 组 成 , 多 数 情况 十 ,由 字母 和 数 
ZMR, W BU08, A— 1, PROGRAM, 99TH 等 都 是 合法 的 文件 名 主干 . 当然 ,也 可 以 应 用 - 
юа. Ш1$ $ $ $, ooa 等 ,也 是 合法 的 ,但 要 注意 有 些 专 用 字符 是 不 可 用 的 、 如 空格 
机 至 号 等 ， 这 里 我 们 提倡 用 字母 和 数字 ， 上 且 长 度 是 1~8 个 。 

FEK- 一 其 长 度 不 超过 三 个 字符 ， 用 来 表示 文件 的 属性 ， 它 必须 用 “. ”号 与 文件 名 分 
隔 。 如 


. BAS #76 BASIC 源 程序 
"FOR 5 RORTRAN 源 程序 
‚сом ”表示 可 执行 的 一 进 制 代 码 文件 
' SYS 表示 系统 文件 
-LIB ”表示 库 文件 
*DAT ДЕ 
扩展 名 所 用 字符 的 规定 与 文件 各 ET - 样 。 但 它 也 可 以 省 略 不 写 。 


11. 1.4 文件 号 


要 对 磁盘 上 的 一 个 数据 文件 进行 读 写 操 作 ， 必 须 首先 开辟 一 个 内 存 缓冲 区 ， 以 建立 必要 
BEB. TXI REME 对 这 个 文件 进行 操作 的 一个 通道 ， 所 以 也 称 通道 号 -个 文件 
号 可 以 是 个 数字 ， 变 嚼 或 表达 式 ， 它 的 取 值 从 1 一 。 这 里 4 是 允许 文件 打开 的 最 多 数 民 。 
IBM - PC 上 使 用 的 BASICA, 在 通常 的 情况 下 允许 同时 打开 文件 个 数 是 3 个 .如 果 要 求 同 时 打 
征文 件 个 数 亡 过 3 个， 那么 ， 可 以 在 启动 BASICA 时 ， 用 下 列 命令 来 实现 ， 

BASICA/F; n 

n 可 了 到 值 4 一 15， 也 就 是 说 最 多 可 呵 时 打开 15 个 文件 。 

例如 ; BASICA /F : 8 
使 用 此 命令 启动 BASICA 以 后 , 存 以 后 的 文件 操作 中 , 可 以 同时 打开 8 个 文件 , 也 就 是 8 个 通 
道 ， 可 以 说 允许 同时 建立 8 个 内 存 缓冲 区 。 


§ 11.2 源 程序 文件 


-RRF URT RETENEMA TARUKE EUPA. HATI EE ETE 
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在 外 部 介质 上 的 源 程 序 ， 最 好 在 编写 程序 或 向 计算 机 酸 入 源 程序 时 ， 在 程序 的 开头 用 注释 语 
名 说 明 它 的 文件 名 以 及 用 途 ， 这 对 文件 的 存 取 和 增加 程序 的 可 读 性 是 有 好 处 的 。 

如 何 将 一 个 源 程序 以 文件 的 形式 存 人 磁盘 ; 用 什么 方式 存 人 ; EAN ОТА ЧЕН 
送 入 计算 机 内 存 ; 在 不 需 时 又 如 何 从 盘 中 删 除 等 ， 对 这 些 操作 是 应 该 熟悉 的 。 下 面 我 们 介绍 
法 程序 文件 常用 的 放 条 命令 ， 用 它们 来 完成 保存 、 装 和 人、 运行 、 合 并 、 删 除 、 改 名 及 列 文件 
目录 等 操作 。 


11.2.1 SAVE 命令 


把 内 存 中 一 个 BASIC 源 程序 作为 文件 写 和 人 磁盘 ， 它 的 一 般 格式 是 
SAYE “СУВАР” [, А] 

或 SAYE“<< 文 件 名 >”[，P] 
其 中 , 文件 名 上 节 已 经 氢 述 ， 若 文件 名 中 的 盘 符 省 略 ， 则 文件 写 人 当前 驱动 器 号 内 的 软 
盘 或 硬盘 中 ， 若 扩展 名 省 略 ， 则 系统 会 自动 加 上 “ BAS 作为 涯 程序 的 扩展 名 

参数 A 表示 以 ASCH 码 的 形式 把 程 信 文件 写 和 信和 矿 盘 ,参数 A 省 略 时 则 以 一 进 制 机 器 码 保 
存 文件 , 它 可 以 占据 较 小 的 贮 空间 。 不 过 , 当 要 用 到 MERGE 命令 (下面 要 讲 的 ) 合并 文件 时 、 
文件 必须 用 ASCI 码 的 形式 存盘 。 

参数 P 表示 以 密码 : 进 制 的 形式 保存 文件 。 这 是 一 个 保护 性 的 选择 项 ,在 人 们 将 程序 再 
次 调 入 内 存 使 用 它 时 ， 只 能 运行 它 。 试 图 发 出 LIST 命令 或 EDIT 命令 都 会 失败 ， 并 发 出 报错 
信息 “illegal function calt”( 非 法 函数 调用 )。 没 有 任何 办 法 使 这 样 一 个 程序 文件 “失去 保护 ”， 
要 么 删除 它 。 命 令 : 

SAVE “ABC” 
表示 把 内 存 中 的 BASIC 程序 以 ABC 作为 文件 名 写 和 到 当前 使 用 的 驱动 器 中 的 盘 上 ,扩展 名 
省 略 ， 但 系统 会 自动 加 扩展 名 ，BAS 。 
SAVE “B: PROG”, A 

表示 把 内 存 中 的 程序 以 ASC 但 的 形式 写 入 B 驱动 器 中 的 软盘 上 ,文件 名 为 PROG ,扩展 名 省 
Ж. 

SAVE “А : MYFILE, BAS”, Р 
表示 把 内 存 中 的 程序 以 MYFILE. BAS 为 名 写 入 A 驱动 器 中 的 软盘 上 , 程序 内 容 保密 ,但 用 户 
可 以 运行 它 。 


11.2.2 LOAD 命令 


把 程序 从 指定 的 驱动 器 磁盘 中 读 入 〈 装 入 ) 内 存 。 它 的 -一 般 格式 是 : 
LOAD“ 一 文件 名 >”[. R] 

带 有 参数 时 ， 表 示 程 序 读 入 内 存 后 ,立即 运行 程序 。 

例如 ， LOAD “ABC” 


二 


表示 把 B КӘ] še ük БАСЕ PROG 装 入 内 存 ， 并 立即 运行 它 。 
LOAD “А : MYFILE. BAS” 
表示 把 A 驱动 器 磁盘 上 的 文件 MYFILE，BAS RANE. 


11.2.3 KILL #4 


IREA KA- -个 文件 。 它 的 一 般 格 式 是 ， 
KILL “<>” 


当然 . 用 此 命令 要 遵 慎 ， 不 要 删除 有 用 的 文件 。 
1.2.4 NAME 命令 


巴 旧 文件 名 改 为 新 文件 名 。 它 的 - 般 格 式 是 ， 
NAME“ 一 旧 文 件 名 >” AS “САР” 
例如 МАМЕ “YOURFILE. BAS” AS “MYFILE. BAS” 
把 当前 盘 中 文件 YOURFILE. BAS 改名 为 MYFILE. BAS。 当 然 ， 下 面 这 样 的 使 用 是 错误 


的 ， 

NAME “А : BUOL. BAS” AS “В: AIOL. BAS” 
因为 原来 在 A 驱动 器 的 文件 , 用 NAME 命令 是 不 可 能 移 到 B 驱动 器 中 去 的 。 所 以 , 改名 只 能 
在 本 驱动 器 的 磁盘 上 进行 。 注 意 改名 时 新 旧 文 件 名 都 必须 写 上 扩展 名 。 


11.2.5 FILES 命令 


显示 破 盘 中 的 文件 目录 。 MEAE: 
FILES [“< 文 件 名 >”] 
若 没有 文件 名 ， 则 显示 盘 中 所 有 的 文件 目录 ; 车 有 文件 名 ， 则 只 显示 文件 名 指明 的 文件 
日 录 。 
文件 名 还 可 用 “x ”简化 ， 如 命令 : 
FILES “А: ж. BAS” л A 驱动 器 磁盘 上 所 有 以 “BAS” 为 扩展 名 的 文件 目录 。 


11.2.6 MERGE 命令 


把 磁盘 上 的 一 个 ASCII 码 程序 文件 合并 到 内 存 中 的 当前 程序 中 去 。 一 般 格式 是 : 
MERGE “< 文件 名 >>” 
例如 ， MERGE “В: MYFILE” 
执行 此 命令 后 ， 就 把 B 驱动 器 磁盘 中 的 程序 文件 MYFILE 与 内 存 中 的 程序 合并 。 如 果 磁 
盘 文件 程序 的 行 号 与 内 存 中 程序 的 行 号 相同 , 则 磁 瘟 程序 的 行将 蔡 代 内 存 中 程序 的 相应 行 .如 
果 合并 的 程序 不 是 以 ASCH 码 形式 保存 的 文件 ， 那 么 ， 发 出 此 命令 后 ， 就 会 出 现 如 下 报错 信 
息 ， 


181 


“Bad file mode” 


程序 合并 撩 败 。 正 确 应 用 这 条 命令 ， 对 于 需要 多 次 输入 的 大 型 程序 是 很 有 用 的 ， 下 面 举 一 个 
简单 的 例子 来 模 氢 大 型 程序 ， 先 假定 在 某 天 有 一 段 程序 已 经 输入 计算 机 的 内 存 ， 但 由 于 某 种 


原因 来 不 及 把 程序 全 部 输 完 ， 此 时 


最 好 的 办 法 是 把 已 经 输入 计算 机 内 存 的 程序 段 以 文件 的 形 


式 贮存 到 磁盘 中 。 当 以 后 需要 继续 这 个 工作 时 ， 可 以 将 还 未 输入 的 程序 段 输入 内 存 ， 然 后 用 
该 命令 实现 合并 。 下 面 几 段 程序 和 几 个 命令 表示 了 模拟 上 述 情况 的 全 过 程 。 其 中 new 命令 是 


用 来 模拟 已 相隔 一 段 时 间 后 重新 开 


10 PRINT “Our pogram is very long. 


机 时 内 存 是 空 的 。 


20 PRINT “lt should separated several” 


30 PRINT “paris for input сотршег. 
SAVE “ххх”, a 

Ок 

NEW 

Ok 

40 PRINT “Today I must finish” 

50 PRINT “the program. 1989. 8. 
MERGE “xxx” 

Ок 

LIST 


1989. 4. 28” 


26” 


10 PRINT “Qur program is very tong. ” 
20 PRINT “H should separated several” 


30 PRINT “parts fot input computer. 


40 PRINT “Today 1 must finish” 
50 PRINT “the program, 1989. 8. 


11.2.7 RUN 命令 


运行 一 个 程序 或 把 磁盘 中 的 
RUN [<< 行 号 >] 
或 RUN “<>” 


1989. 4. 28” 


26" 


-个 程序 装 入 内 存 并 运行 它 。 一 般 格式 是 : 


L, к] 


第 -一 种 形式 大 家 是 熟悉 的 ， 命 令 不 带 行 号 ， 表 示 从 程序 的 最 小 行 号 开始 运行 程序 ， 带 行 
号 表示 程序 从 指定 的 一 行 开始 运行 。 第 一 种 形式 与 前 面 说 明 的 命令 LOAD“ 文 件 名 ”[, RJ 等 


Ж. 


5811.3 顺序 文件 


项 序 文 件 可 以 通过 程序 输出 数据 来 建立 。 由 程序 输出 数据 以 建立 顺序 文件 时 ， 记 录 总 是 
从 文件 的 开始 处 起 ， 一 个 接着 一 个 顺序 地 写 入 磁盘 。 当 需要 从 文件 上 读 出 某 个 记录 时 ， 也 必 
须 从 第 一 个 记录 开始 逐个 读 该 记录 前 的 所 有 记录 以 后 ,才能 读 到 所 需要 的 那个 记录 ,也 就 是 
Ж, 硕 序 文件 中 的 记录 ， 其 建立 顺序 、 排 列 需 序 、 读 出 顺序 三 者 一 致 ， 或 者 说 ， 有 逻 辑 顺序 与 
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物理 顺序 一 致 此 外 , BASIS 还 提供 了 在 已 建立 的 顺序 文件 后 面 读 写 一 些 记录 的 功能 , Pk. 5 
或 续 写 一 个 顺序 文件 时 ， 必 须 通 过 文件 打开 语句 中 的 不 同 的 读 写 方式 来 实现 。 


11.3.1 顺序 文件 的 打开 和 关闭 


顺序 文件 的 打开 语句 在 二 种 格式 : 

格式 O): 

OPEN “<A>” FORCES HR [>AS н] < 文件 号 > 

文件 名 和 文件 号 上 一 节 已 经 说 明 ， 听 读 写 方式 1 可 以 世 下 列 三 科 情 况 之 一 ， 

OUTPUT 说明 顺序 输出 方式 “ 写 顺 序 文件 ) 

INPUT ”说 明 顺 序 输入 方式 《 读 项 序 文件 } J: 

APPEND 说明 顺序 输出 方式 与 OUTPUT KEANE XPA iy emel tit 的 
结束 处 ， 是 续 写 文 件 的 记录 。 

格式 中 的 “ 共 ” 可 以 写 ， 也 可 以 天 写 . 

格式 (2), 

OPEN“ 一 读 写 方式 >”. <h><X 5 >. “CRA” 

其 中 ， 污 方式 下 下 列 二 种 请 况 : 

o 一 一 说 明 顺 序 输出 方式 

1—— 说 明 顺 序 输入 方式 

例如 

20 ОРЕМ “Al. DAT” FOR OUTPUT AS#1 
这 是 用 格式 (1) 写 的 文件 汀 开 语句 ,说 明基 一 个 新 的 顺序 文件 , 文件 名 是 A1. ОАТ, 准备 从 
头 开始 顺序 写 入 ， 文 忻 导 (通道 号 是 1。 当然 也 可 以 用 格式 (D S, 

20 ОРЕМ “О”, #1, “АІ. РАТ” 

以 上 两 个 OPEN 语句 是 完全 等 效 的 。 应 该 强调 指出 ,应 用 这 二 个 语句 的 目的 是 为 了 建立 一 
个 新 顺序 文件 , 也 就 是 说 , Ж ШЕКЕ ЖАПЕК. 肯 定 磁盘 中 有 此 文件 各, 执行 OPEN 
语句 后 ， 将 完全 破坏 原 有 的 数值 ， 并 等 待 善 新 的 顺序 数据 的 输入 。 

假定 要 在 旧 文 件 的 后 百 增 加 一 些 教 据 记 录 ， 那么 ， 只 能 用 格式 〈1) ， 此 对 的 读 写 方式 上 
应 用 APPEND RE. 如 : 

40 ОРЕМ “B.DAT” FOR APPEND AS #* 3 

文件 使 用 结 不 以后， 一般 都 需要 关闭 ， 以 释放 反 占 的 通道 导 . 关 洁 语句 的 一 般 格式 奸 ， 

CLOSE [ [#] < 文件 号 > [，[#] < 文件 号 之 …*…] 


йїп: 
100 CLOSE #1, #2 


表示 关闭 与 通道 号 1 和 2 要 联系 的 文件 ， 以 上 语 匀 也 可 以 写成 ， 
100 CLOSE 1, 2 


当 文 件 号 缺 省 时 ， 即 只 写 : 
100 CLOSE 
时 ， 则 表示 关闭 所 有 的 打开 文件 。 


在 执行 END, NEW, SYSTEM 或 不 带 开关 RR 的 RUN 命令 以 后 , 亲 统 将 自动 关闭 所 有 打开 
的 文件 。 


14.3.2 顺序 文件 的 输出 〈 写 顺序 文 竺 ) 


向 顺序 文件 写 数据 ,MS BASIC 提供 了 三 个 语句 ,它们 是 ;PRINT 并 语句 ,PRINT 斗 USING 
语句 和 WRITE 共 语 所 。 

(1) PRINT# HAM PRINTH USING 语句 

PRINT # ЩЕ, 

PRNT#<X 522. «ВНЕ > 

PRINT t РЕСОРА Б ВСЕ НОЗ, A PRINT 语句 向 显示 器 输出 的 格式 相似 ,给 出 发 
天 中 项 与 项 之 间 用 如 匡 或 分 号 铺 开 .用 分 号 或 副 且 的 区 别 与 以 前 介绍 的 相间 。 如 ， 

20 PRINTH#1, А; B; C; D 
A, B, C, D 的 什 以 紧凑 格式 存放 在 磁盘 文件 #1 中 。 

如 果 月 逗号 作为 分 隔 符 , 那么 , 各 个 输出 数据 之 问 约 那些 额外 的 空格 也 六 被 送 入 文人 中 , 这 
将 浪费 磁盘 在 贮 空间 。 

在 输 名 数值 时 ， 如 果 用 分 号 分 隔 各 答 出 项 ， 直 于 数值 之 нав, 因此 当 以 后 
再 将 该 输出 数据 作为 输入 数据 被 程序 恋 入 时 ， 数 据 之 间 的 空间 将 起 到 分 隔 数 据 的 作用 。 市 输 
出 字符 串 时 如 果 用 分 号 分 隔 各 输出 项 ， 输 出 的 字符 串 之 问 是 不 留 空格 的 > -例如 I 

100 PRINT# І, “UNIVERSITY”; “OF”, “TECHNOLOGY” 
写 在 磁 筑 文件 中 的 信息 为 ，UNIVERSITYOFTECHNOLOGY 。 以 后 读 取 时 、 无 法 区 分 出 原来 的 
三 个 数据 。 正 确 处 琴 这 个 人 问题 的 方法 是 在 输出 表 项 中 插入 分 隔 符 ， 妈 

100 PRINT#1, “UNIVERSITY”, “,*} ОР”; 5,” “|” TECHNOLOGY” 
这 样 写 到 文件 中 去 就 成 为 , UNIVERSITY , OF, TECHNOLOGY. 以 后 从 栈 盘 中 读 回 数据 时 , 由 
于 它 伯 之 间 有 一 逗号 ， 便 能 分 别 读 入 了 . 

PRINT# USING 语句 格式 是 : 

PRINT# «ўса, USING “ШБК РЕР”, НОЕ 

它 的 使 用 与 PRINT USING НИ, ЯВЫ АЛШ. 而 后 者 把 数据 输出 在 
显示 屏 或 打印 山上. 

(2) МЕТЕ ҒА 

它 的 格式 是 ， 

WRITE # < X#Ṣ>, < HAR ~ 

用 它 来 写 文 作 时 ， 能 自动 地 在 各 教 据 项 之 间 插 入 有 逗 导 ， 并 给 字符 串 加 引导 ， 且 不 在 正 数 前 理 
HETH. И, 

150 WRITEF 1, “UNIVERSITY”; “ОЕ”; “TECHNOLOGY” 
写 入 磁盘 的 内 容 是 : “UNIVERSITY”, “OF”, “TECHNOLOGY”. ХЕ NIE i е 1898 
符 了 。 

【 例 11.1] 建立 一 个 1—3 ННСА ЗСС, FNT: 

10 ereat a I-E file (HRG FAI EEEE, $ REM 等 价 》 
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70 ОРЕМ “inex. dat” FOR OUTPUT AS #1 

30 READ Мф, INCOME, EXPENSES 

40 IFM$ = “end” THEN 70 

50 WRITE #1, Мф, INCOME, EXPENSES 

60 GOTO 30 

70 > close the file 

8! CLOSE #1 

90 END 

100 DATA jan, 1000, 800 

110 DATA feb, 1200, 990 

120 DATA mar, 800, 950 

130 DATA end,, 
说 明 ，20 语句 把 数据 文件 INEX. DAT 以 OUTPUT 的 形式 打开 ， 建 立 一 个 新 文件 。 若 该 文件 
名 在 磁盘 中 已 存在 ， 则 删 去 原来 的 文件 ， 并 重新 建立 一 个 新 文件 。50 语句 把 已 读 入 的 一 行 数 
据 写 入 文件 , 直到 读数 结束 , 程序 转 去 70 行 , 关闭 文件 并 结束 程序 运行 。 新 建立 的 数据 文件 
打印 如 下 ， 

A>type inex. dat 

“jan”, 1000, 800 

“feb”, 1200, 990 

“mar”, 800, 950 
若 把 50 语句 改 为 “WRITE#1，M$ ; INCOME; EXPENSES”， 则 输出 结果 与 上 面相 同 。 若 50 
语句 改 为 PRINT#1，MS$ ; INCOME; EXPENSES 则 运行 结果 是 : 

A`>type inex. dat 

jan 1000 800 

feb 1200 990 

mar 800 950 
区 别 在 于 宰 符 串 没 有 引号 ， 教 字 前 留 有 符号 位 ， 数 字 后 留 一 个 空格 。 再 把 PRINT 提 语句 后 面 
的 输出 项 用 逗号 分 隔 ， 程 序 运行 结果 读者 可 以 自行 分 析 。 


S 


11.3.3 MF XIRA CEF X 


从 顺序 文件 输入 ， 就 是 从 已 建立 的 文件 中 读数 据 ， 这 就 要 用 到 文件 的 读 语句 ， 常 用 的 读 
语句 是 INPUT 并 语句 以 及 还 有 LINE INPUT# 语 句 。 

(1) INPUT HEA) . 

格式 是 : 

INPUT# СВ, <HR> Г, а>) …… 

其 功能 是 从 一 个 顺序 文件 读数 据 , 并 把 这 些 数据 赋值 给 变量 。 其中, 文件 号 必须 是 OPEN 语句 
中 的 文件 号 , 即 只 能 对 已 打开 的 文件 才能 实现 读 梨 作 。 变量 可 以 是 数值 变量 或 字符 型 变量 ,也 
可 以 是 数组 元 素 ， 

DA 11. 2] 读 例 11. 1 程序 建立 的 收 支 数 据 文 件 ， 程 序 如 下 : 
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10 ° read 1- E file 
20 ОРЕМ “inex. dat” FOR INPUT AS # J 
30 IF EOF (1) THEN 70 
‚ 40 INPUT #1, M$, INCOME, EXPENSES 
50 PRINTM$, INCDME, EXPENSES 
60 GOTO 30 
70 ? close file 
80 CLOSE 并 1 ` 


mar 900 950 

ок А 
程序 中 , 20 语句 以 该 的 方式 打开 文件 ,30 语句 检查 文件 是 否 结束 . 其 中 EOF 为 标志 文件 结束 
жна, т. 

EOF (< 文件 屿 >) 

其 功能 是 指出 文件 结束 的 条 件 ,其 中 文件 号 是 OPEN 语句 中 指定 的 文件 号 ,EOF 函数 用 于 如 免 
“输入 越界 ”的 错误 ， 如 果 在 指定 文件 上 已 经 到 这 文件 结束 位 置 ， 则 EOF RREI 
GO: 如 果 没 有 到 达 结 束 位 置 ， 则 其 值 为 0《 假 ) EOF 函数 仅 用 于 顺序 文件 的 输入 才 有 意 
х. 

对 于 已 经 建立 的 顺序 文件 ， 允 许 在 文件 的 图 部 增 赫 新 的 记录 ， 这 是 通过 打开 文件 对 使 用 
“增补 方式 ”来 实现 的 。 下 面 举例 说 明 。 

[011.3] 增补 例 11. 1 程序 建立 的 收 支 数 据 文件 

10 ? APPEND the 1- E file 

20 OPEN “inex. dat” FOR APPEND AS #1 

60 ІМРІТ М$, INCOME, EXPENSES ` 

70 ТЕМ$ = “end” THEN CLOSE : END 

80 WRITE #1, M$, INCOME, EXPENSES 

90 GOTO 60 


RUN 

? apr. 1000, 300 

? jun, 990, 880 

? end,, 

Ok 

system 

Ауре inex. dat 《 回 到 操作 命令 状态 》 

“jan”, 1000. 800 

“feb”, 1200, 990 

“mar”, 800, 950 
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“apr”, 1000, 800 

“un”, 990, 880 
上 面 是 程序 执行 的 全 过 程 ， 并 打印 了 增补 以 后 的 数据 文件 。 在 增 裤 时 ， 我 们 有 意 泼 了 五 月 份 
(шау) 的 收 支 情况 ,| 这 将 在 “顺序 文件 的 修改 ”中 补 上 。 

(2) LINE INPUT 并 语句 

格式 是 ， 

LINE INPUT 并 一文 件 号 >， 忌 字符 串 变量 > 

它 的 功能 是 从 打开 的 顺序 文件 中 读 取 一 个 以 回 村 键 等 为 结束 标志 的 字符 昌 ， 字 符 申 的 字符 个 
数 不 超 过 254 个 。 注 意 ， 读 取 的 字符 串 是 赋值 给 一 个 字符 囊 变量 。 

〖 例 11.41 用 LINE INPUT# 语 名 读 增补 以 后 的 收 支 数据 文件 。 
程序 和 运行 结果 如 下 : 

10 * read 1— É file 

20 ОРЕМ “inex. dat” FOR INPUT AS #1 

30 IFEOF (1) THEN 70 

40 LINE INPUT #1, MLINE $ 

50 FRINT MLINE $ 

60 GOTO 30 

Т0 ? dose file 

80 CLOSE #1 

90 END 


RUN 

“ап”, 1000. 800 
“feb”, 1200, 890 
“mar”, 800, 950 
арг”, 1000, #00 
“iun”, 990, 880 
Ok 


11.3.4 PF X tre P: 


顺序 文件 的 修改 〈 如 要 改写 原 有 的 记录 或 插入 漏 写 的 记录 ) 通常 是 比较 麻烦 的 ， 这 是 顺 
序 文件 的 本 身 读 写 规则 所 决定 的 ， 只 能 从 文件 的 开始 顺序 地 读 。 面 写 也 只 有 一 种 方式 ， 要 么 
从 涉 开始 写 ， 那 就是 建立 新 文件 ; 要 么 从 瑟 文 件 的 尾部 开始 写 ， 即 续 写 老 文 件 。 所 以 ， EE 
改 顺 序 文 件 ， 通 常 必 须 建 立 一 个 中 间 文 件 ， 因 此 ， 和 修改 各 插入 的 速度 比较 慢 。 下 面 我 们 电 收 
改 和 插入 收 支 数据 文件 INEX. DAT 为 例 来 说 明 修改 一 下 顺序 文件 的 过 程 , 其 他 顺序 数据 文件 
也 可 以 售 此 程序 来 完成 桥 改 和 插入 的 任务 。 

[0411.5] 对 前 面 已 建立 的 收 支 数 据 文 件 МЕХ. DAT 进行 修改 ， 要 求 修改 二 月 份 的 收 
支 金额 ， 并 插入 五 月 份 的 收 支 金额 。 程 序 中 文件 TEMP 用 作 中 间 文 件 。 程 序 从 原文 件 中 从 头 
开始 逐一 读 入 数据 记录 ， 不 要 小 改 的 直接 写 入 中 间 文 件 ， 要 修改 的 ， 则 重新 输入 新 记录 后 再 
写 入 中 阿 文 件 ， 并 在 项 序 读 人 过 程 中 ， 注 意 揪 入 五 月 份 的 新 记录 。 最 后 ， 删 除 老 文件 ， 把 中 
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间 文件 改名 为 原来 的 数据 文件 名 而 结束 。 程 序 如 下 ， 
10 “Change or Insert the I- Е file 
20 OPEN “inex. dat” FOR INPUT AS #1 
30 ОРЕМ “temp” FOR OUTPUT AS# 2 
40 IF EOF (1) THEN 160 
50 INPUT #1, MẸ, INCOME, EXPENSES 
60 PRINT M$, INCOME, EXPENSES 
70 INPUT “change (y/n)”, R$ 
80 IFR$<> “y” THEN 100 
90 INPUT М $, INCOME, EXPENSES 
100 WRITE #2, M$, INCOME, EXPENSES 
110 INPUT “inseri (y/n)”, R$ 
120 IF ЕФ <> “у” THEN 150 
130 INPUT M$, INCOME, EXPENSES 
140 WRITE #2, M$, INCOME, EXPENSES 
150 GOTO 40 
160 CLOSE 
170 KILL “inex. dat” 
180 NAME “temp” AS “inex, dat" 
190 END 
RUN 
jan 1000 800 
change (y/n) na 
insert (y /n) mac 
feb 1200 990 
change Cy /ny ya 
? feb, 5000, 2000 
insert (y/n) na 


ma 800 950 
change (у/п ng” 

insert (y /n) 7 

арг 1000 800 
change (y/n) пр 


insert (y/n) y” 

? may, 0000, 2000 
jun 96 ` 880 
change (y/n) ni 
insert (y /n) n 

ок 

A>type inex. dat 
“jan”, 1000, 800 
“feb”, 5000, 2000 
“mar”, 800. 950 
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“apr”. 1000, 800 
“may”, 9000, 2000 
“aun”, 990. 880 


用 顺序 文件 处 理 ， 不 适 于 处 理 大 量 数据 记录 。 而 用 随机 文件 则 方便 得 多 。 


#14 随机 文件 


随 术 文件 也 称 直接 存 取 文 件 或 相对 记录 文件 ， 其 特点 是 组 成 文件 的 每 个 记录 都 有 一 个 唯 
- 扔 记录 号 。 但 聊 机 文件 中 的 记录 ， 其 逻 糙 顺序 和 物理 顺序 一 般 说 是 不 一 致 的 。 即 依次 先后 
送 入 文件 的 记录 在 存 贮 设备 上 的 物理 位 置 不 一 定 是 相 邻 的 。 因 此 ， 我 们 可 以 根据 需要 直接 存 
取 某 个 指定 的 记录 ， 这 种 文件 的 存 取 速 度 快 ， 且 有 较 大 的 灵活 性 ,其 次 ， 随 机 文件 的 数据 通 
常 是 以 二 进 制 代码 的 形式 存 训 在 磁盘 上 .而 顺序 数据 文告, 则 是 以 А5СП 码 的 形式 存盘 ,所 以 ， 
在 许多 情况 下 ， 随 机 数据 文件 比 呈 评 效 据 文件 所 占用 的 磁盘 空间 少 。 这 一 节 ， 我 们 计 论 随机 
文件 的 建立 、 修 改 、 检 索 和 删除 等 内 容 。 


11.41 随机 文件 的 打开 和 关 乓 


唤 机 文件 的 打开 也 专 两 种 格式 ， 且 这 二 种 格式 具 下 相同 的 功能 。 
HED: OPEN “< 文件 名 >”AS [# J <S> [LEN= < 记录 长 度 >] 
D: OPEN “R”, [+] «в, б", EREE] 
fun, PAKEE -个 整数 或 讨 型 表达 式 ， 它 用 来 为 随 术 文 特 设置 记录 长 度 ， 其 范围 是 1~ 
32707 字 节 之 则 ,通常 情况 下 , 对 随机 文件 若 省 路 此 参数 , 记录 医 度 约定 为 128 个 字 节 。 这 个 
参数 对 顺序 文件 是 无 意义 的 ， 而 对 随机 文件 是 必要 的 ， 因 为 随机 文件 具体 记录 的 相对 位 置 是 
车 记录 长 度 来 计算 的 。 格 式 (D 中 的 “R” 表示 以 随机 六 式 打开 文件 。 
什 得 注意 的 是 随机 文件 中 实际 记录 长 度 车 远 少 于 128 个 字 节 时 ， 建 议 在 ОРЕК 语气 书 还 
是 具 伏 指 定 -个 “记录 长 度 ” 为 好 ， 这 样 可 以 节约 文件 的 存 贮 空间 。 伍 是 ， 当 实际 记录 长 大 
于 128 个 字 节 时 ， 那 么 在 起 动 BASIC 时 .就 必须 预先 设置 文件 缓 串 区 的 长 度 ， 司 得 实际 记录 
长 诬 少 十 或 等 于 文件 缓 囊 区 的 长度 。 文件 缓 冲 区 长 度 的 设置 是 在 装 入 BASIC 时 ， 选 择 开 关 参 
# s 的 信和 来 实现 的 。 如 命令 行 ， ' 
ВАЅІСА /5 : 512 
ВЕТ ар р 512 个 字 节 。 可 以 设置 的 最 大 文件 缓冲 区 让 度 是 32767 个 字 
эт, AM 
40 ОРЕМ “BUAL БАТ” AS 1 LEN= 32 
或 40 ОРЕМ “В”, 1, “BUAIL DAT”, 32 
АЕА — ВЕН, 都 是 在 当前 盘 书 打开 随机 文件 BUAI. DAT, 记录 长度 是 32 个 字 


H. 


文件 使 用 结束 后 , 也 使 用 CLOSE 语 甸 关闭 文件 ,这 与 渗 序 文件 中 使 用 的 CLOSE 语句 完全 
E, KEER. 
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11.4.2 иахн вир ©] 


文件 打开 以 后 ,BASIC 分 配 一 个 文件 缓冲 区 ,其 长 度 为 大 于 或 等 于 一 个 记录 的 长 度 . 注 意 ， 
文件 缓冲 妈 的 长 度 是 在 启动 BASIC 时 确定 的 ， 痊 随机 文件 的 记录 羡 度 是 在 打开 语 乌 中 确定 
的 ， 空 们 的 党 略 值 都 是 128 个 字 节 。 

随机 文件 的 数 泥 在 缓冲 区 中 都 要 求 以 字符 外 形式 存放 。 直 此 ， 在 数 馈 数据 族 入 缓冲 区 前 
必须 将 它们 转换 为 字符 型 数据 ， 用 后 面 介绍 的 函数 将 数值 型 数据 按 其 在 机 器 中 的 内 码 〈 二 进 
й) 形式 直接 转换 成 字符 形式 ， 却 按 其 原来 形式 以 一 个 字 节 当 作 一 个 字符 :这 样 可 节省 态 储 
空间 )， 然 后 放 到 缓冲 区 ， 面 后 用 写 语 句 把 缓冲 区 的 内 容 写 和 磁盘。 反之， 从 磁盘 文件 忆 读 回 
数据 时 ， 用 读 语 名 把 盛 盘 中 的 数据 读 人 缓冲 区 ， 再 把 那些 原来 是 数值 的 字符 串 转换 同 数值 . 

记录 在 缓冲 区 中 划分 为 若干 字段 ， 各 字段 豹 长度 一 般 等 于 记录 中 各 数据 变 莉 的 长 度 。 即 
字符 型 变 野 为 其 字符 串 的 长 度 ， 而 数 信 型 变量 的 长 度 规定 为 其 机 器 码 的 长 度 《〈 整 型 为 2 个 字 
区 , 单 精度 型 为 4 个 字 节 , 双 精 度 型 为 个 字 节 >。 用 FELD 语句 水 规定 记录 中 各 字段 的 宽度 。 
一 般 形 式 为 

FIELD[# < 文件 号 > ， <FRE>AS< FRE 1>1., 过 字段 宽 >>AS< 字 段 名 2>]e 

其 中 ,字段 名 代表 缓冲 区 中 的 字符 中 变量 。 例 如 。 

10 FIELD#1，15 ASA$,20ASB$, 30 А5 C$ 
这 个 语句 把 文件 缓冲 区 开始 的 15 АА ЗЕТЕ ЧЕ А $; WRES 20 个 字 节 分 配给 
字符 串 变 基 B$ ， 再 把 其 后 的 30 个 字 节 分 配给 字符 囊 变 最 CF 。 如 下 图 所 示 ， 

A$ B$ c$ 


анк те 20 个 字 节 20 个 字 书 


FIELD 语 与 仅仅 是 给 变量 分 配 缓冲 区 , ESAE. 也 天 能 读数 据 , 所 以 执行 了 FIELD 语 
气 后 ,缓冲 区 还 是 空 的 。 信 很 注意 的 是 ， 在 FIELD 语句 中 ,为 变量 分 配 的 字 节 总 数 不 能 超过 
打开 文件 时 所 指定 的 记录 长 度 ， 否 则 将 显示 错误 信息 : Field overflow 
对 于 同一 个 文件 号 , 可 以 执行 多 个 FIELD Н]. 每 执行 一 个 FIELD 语句 ,将 从 缓冲 区 的 
第 一 个 字符 五 始 重 新 定义 字 节 空间 的 分 配 。 但是。 前 后 FIELD 语句 将 同时 发 生 作用 ， 也 就 是 
说 对 同样 的 数据 可 以 产生 多 种 定义 域 。 

下 面 我 们 举 一 个 写 FIELD 语 甸 的 具体 例子 ,假定 我 们 要 写 的 记录 包含 契 关 学 生 的 下 列 数 
据 项 : 名 字 、 年 龄 、 入 学 总 分 和 和 地址 四 项 ， 其 中 各 字 和 地 址 是 字符 型 变量 ， 其 长 度假 定 分 别 
是 24 个 字符 和 60 个 字符 ( 视 最 长 的 名 字 和 地 址 而 定 ) ,年龄 和 入学 总 分 是 数值 , 前 者 是 整 型 ， 
而 后 者 是 单 精 度 实数 。 那么 ， 缓 冲 区 字段 名 (字符 串 变 量 〉 与 记录 的 变量 名 及 所 占 空 间 如 表 
ШИ ЕЕ 
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311.1 


说 明 “ 缓冲 反 变 量 数据 变量 字 节 (空间) 


FERF N$ | NAME $ 24 

в A$ AGE К 
| 入 学 总 分 T$ TOTAL 4 
иш ADD $ ADDRESS $ во 


那么 ， 这 个 记录 的 PELD 语句 应 写成 

FIELD#1, 24 AS М$, 2 ASA$, 4AST$, 60 AS ADD $ 

记录 长 度 是 90 个 字 节 ， 这 样 分 析 后 ， 对 ОРЕМ 语句 中 的 记录 长 度 就 有 数 了 。 

值得 注意 的 是 , 缓冲 区 的 字段 长 度 分 配 好 以 后 , 相应 数据 项 的 长 度 就 不 应 超过 它 的 值 , 如 
上 例 中 , 车 实 际 赋 给 NAME $ 变量 的 名 字 长 度 大 于 24 个 字 节 时 , 那么 在 放 入 缓冲 区 时 将 产生 
截断 , 也 就 是 丢失 超过 24 个 字符 的 部 分 。 当 然 , 假如 实际 数据 字符 串 长 度 小 于 FIELD 语句 中 
的 定义 长 度 ， 则 多 余部 分 用 空格 填 满 。 


11.4.3 随机 文件 的 输出 〈 写 随机 文件 ) 


在 把 数据 记录 写 入 磁盘 之 前 ， 要 先 用 LSET 或 RSET 语句 把 内 存 中 的 数据 送 到 文件 缓冲 
К. 然后 用 PUT 语句 将 缓冲 区 的 内 容 写 入 磁盘 。 
LSET ЕР RSET 语句 的 格式 是 : 
LSET< 字 符 串 变量 > 一 一 字符 串 表达 式 > 
RSET< 字 符 串 变量 > 一 一 字符 串 表达 式 > 
其 中 , 字符 事变 量 是 已 经 在 FIELD 语句 中 定义 过 的 变量 名 。 用 LSET 语句 , 使 字符 串 变量 在 组 
冲 区 的 字段 域 中 向 左 对 齐 ， T RSET 语句， kia ias KAIA, 多 余 
部 分 用 空格 填 满 。 
在 使 用 LSET ЕЗЕТ 语句 之 前 ， 必 须 把 数值 型 的 数据 转换 成 字符 囊 ，MS BASIC 提供 了 
将 数值 转换 成 字符 串 的 三 个 两 数 。 它 们 是 ， 7 
MKI$ СФР) 
MKS $ (一 单 精度 表达 式 >) 
MKD $ (<< 双 精度 表达 式 >) 
这 三 个 函数 分 别 把 鉴 型 数 、 单 精度 数 和 双 精度 数 分 别 转换 成 2、4、8 个 字 节 的 二 进 制 内 码 字 
в. 


在 作 了 上 述 准备 工作 后 ， 就 可 以 用 PUT 语句 将 缓冲 区 的 数据 写 到 磁盘 文件 上 。PUT 语句 
的 格式 是 ; 
PUT [#] 到 文件 名 > [， 到 记录 号 >] 
如 果 不 指 出 记录 号 ， 则 要 写 的 记录 就 是 上 一 个 PUT 语句 所 写 记 录 的 下 - -个 记录 。 如 : 
PUT#2, 28 
表示 将 当前 缓冲 区 的 内 容 写 入 文件 号 为 2 的 随机 文件 中 的 第 28 个 记录 中 。 接 着 改变 缓冲 区 
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的 内 容 后 又 有 语句 。 
PUT #2 

它 没有 具体 指出 记录 号 , 那么 , 它 应 写 入 上 -- 个 PUT 语句 所 号 记录 的 下 一 个 记录 , 即 第 29 + 
记录 中 ， 

综 上 记述 , 要 实现 写 随 机 文件 的 目的 ， 必 须 执行 PUT 语句 , 但 在 执行 PUT 语句 前 , 先 要 
将 写 到 磁盘 上 的 信息 置 入 文件 的 缓冲 区 , 信息 的 置 入 可 以 用 LSET 或 RSET 语句 来 完成 , 而 在 
用 LSET 或 RSET 请 名 之 前 ， 若 记录 中 包含 有 数值 型 数据 ， 又 必须 用 MKI $ R MKS $ мкр 
S 阔 数 把 数 利 型 数据 转换 成 字符 型 数据 。 从 例 11. 6 中 可 以 清楚 地 看 到 这 几 个 步骤， 

【 例 11. в] 建立 一 个 学 生 入 学 档案 文件 ,每 个 记录 包括 学 生 的 姓名 、 性 别 、 年 龄 和 入 学 
总 分 。 程序 以 10 个 学 生 一 一 夏 梦 (Xia Meng)， 李 伟 (Li Wei), E4 (Wang Hong), ИК 
Оча Lin》， 王 时 (Wang Shi) ,李峰 (Li Feng), 5 (Lin Fang), 金 林 Uing Lin), Eik (Wang 
Qing), ФЙ 'Zhao Bang) 为 例 , A DATA 语句 提供 原始 数据 《 当 学 生 数 车 很 多 本 ,建议 用 键 
RRA, 以 缩短 源 程序 的 长 度 )。 程序 要求 每 写 一 个 记录 时 , 在 该 记录 的 第 一 个 字 节 作出 写 入 
记录 的 标志 ， 程 序 如 下 ， 

10 'Creat a random file 

20 ОРЕМ “student. dat” AS #1 LEN 一 3 

3D FIELD #1. 1 AS МФ, 2 ASN$, 1ASS$, ZASA$. 4А5Т% 

40 READ ҸАФ, SE$, AGE, TOTAL 

50 IF NA $ = “end” THEN CLOSE : END 

60 LSET M $ = “a” 

70 LSET N$ =NA $ 

80 15ЕТ 5$ =5Е$ 

90 ІЅЕТ A$ =МК1$ (AGE) 

103 LSET T$ =MKS$ (TOTAL) 

11) PUT #1 

15 GOTO 40 

12) DATA Xia Meng, f, 19.580. 5 

13) DATA Li Wei, т. 18,540. 0 

140 DATA Wang Hong, m. 20. 590. В 

150 РАТА Xia Lin, f, 18,520. 6 

160 РАТА Wang Shi, т, 19.535. 4 

17) РАТА 14 Feng, f, 19,525, 8 

180 DATA Lin Fang, m, 18,510.6 

190 DATA Jin Lin, m, 19,505. 8 

200 DATA Wang Qing, f, -8,500.5 

210 DATA Zhao Bang, m, 19,520. 2 

220 DATA end, ,, 
程序 中 , 20 语句 是 打开 一 个 通道 号 是 1 的 随机 数据 文件 Studert. dat, 记录 长 度 是 32 个 字 节 。 
30 行 语 句 用 来 定义 文件 缓冲 区 的 字段 ， 示 意 司 如 下 ， 
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1 字 节 24 字 节 1 字 节 2 字 节 4 字 节 
M$ N$ 5$ А T$ 
标志 姓名 性 别 年 龄 总 分 


40 语句 读 记录 行 的 数据 ，60 语句 ， 设 置 写 入 记录 的 标志 为 字符 a, 并 放 入 缓冲 区 左 方 第 一 个 
字 节 ，70~80 语句 把 姓名 和 性 别 按 向 左 对 齐 的 原则 放 入 缓冲 区 ，90 一 100 语句 是 把 原来 是 数 
值 的 数据 项 , 经 类 型 转换 落 数 后 变 成 字符 串 昔 按 次 放 入 缓冲 区 。 110 语句 是 把 缓冲 区 的 内 容 写 
入 文件 。 另 外 要 说 明 的 是 写 和 记录 标志 不 一 定 要 用 字符 a， 可 以 自 定 别 的 标记 。 

以 上 所 产生 的 随机 数据 文件 是 二 进 制 机 器 码 文件 , 是 不 可 读 的 , 其 优点 是 节约 磁盘 空间 。 
若 要 产生 一 个 可 读 的 随机 数据 文件 ， 那 么 ， 应 该 把 记录 中 的 数据 以 ASCII BER, S ЛЕЯ 
STR $ 函数 代 蔡 MKI $ 和 MKS $ 两 数 并 加 大 相应 的 字 节 长 度 。 


11.44 随机 文件 的 输入 〔 读 随机 文件 》 


读 随机 文件 是 比较 方便 的 。 只 要 用 OPEN 语句 打开 随机 文件 , 用 FIDLD 语句 定义 缓冲 区 
的 字段 字符 串 变 量 ， 而 后 用 读 语句 СЕТ 就 可 以 读 到 文件 中 的 任意 一 个 你 想 要 读 的 那个 记录 。 
GET 语句 的 格式 是 : 
GET [#] < 文件 号 > [，< 记 录 号 >] 
其 中 , 文件 号 是 OPEN 语句 所 打开 的 文件 号 , 记录 号 就 是 你 要 读 的 那个 记录 号 , 它 的 取 值 范围 
是 1 到 32767。 如 果 没 有 指出 记录 号 ， 那 么 ， 这 个 语句 所 读 到 的 记录 就 是 上 一 个 GET 语句 所 
读 的 那个 记录 的 下 一 个 记录 。 
车 所 读 的 记录 中 有 数值 项 ， 那 么 必须 把 FIELD 语句 中 定义 的 字符 串 变量 二进制 内 码 
串 ) 转换 回 数值 ， 这 就 要 用 到 我 们 在 写 随机 文件 时 用 过 的 函数 MK1$ , MKS $ 和 MKD $ 的 逆 
Й СУТ, СУБ 和 CVD。 它们 的 格式 是 ， 
CVI ( 雯 二 字 节 的 内 码 字符 串 >) 
CVS (<< 四 字 节 的 内 码 字 符 串 >>》 
CVD (< 八字 节 的 内 码 字 符 捉 之 ) 
它们 把 内 码 字 符 串 转换 为 数值 。 而 对 于 以 ASCH 码 存盘 的 可 读 随机 数据 文件 ， 读 出 时 应 用 
VAL 函数 将 数字 形式 的 字符 串 转 换 成 数值 。 
【 例 11.7] 先头 序 读 例 11, 6 建立 的 学 生 档 案 随机 文件 的 全 部 记录 , 而 后 检索 文件 中 的 任 
一 记录 。 
首先 提出 的 问题 是 在 读 随机 文件 过 程 中 , 怎样 来 判断 文件 已 经 结束 。 我们 在 讲 顺序 文件 
时 , 是 用 EOF 函数 来 判断 的 , 但 是 ， 随 机 文件 不 可 以 使 用 EOF 函数 来 判别 文件 的 结束 ， 而 只 
能 用 测量 文件 长 度 函 数 LOF 来 推算 。 它 的 格式 是 ， 
LOF (<45>) 
其 中 文件 号 是 被 打开 的 随机 文件 的 文件 号 ,LOF 函数 可 以 得 到 指定 随机 文件 总 长 度 〈 总 的 字 
节 数 )， 所 以 文件 记录 的 总 数 是 ， 


оғ O /记录 长 度 
如 果 按 记录 号 逐个 读 入 记录 ， 则 读 完 全 部 的 记录 后 应 结束 。 
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程序 如 下 : 

10 ' read and retrieve the student file 

20 ОРЕМ “student. dat” AS #1 LEN=32 

30 FIFLD #1, 1 AS М, 24 А5 М9, 1ASS$, 2ASA$, AAST$ 

30 PRINT TAB (2) “m”, ТАВ (5) “name” ТАВ (29); “sex”; TAB (34) “age”, ТАВ (38) “total”; 

ТАВ (46) “гп” ` 

60 FOR 1-1 TO LOF (1) 732 

90 GE Bl, 1 

10t ММ$-=М$; NA$=N$; SES=S$ 

10 AGE=CVI (A$); TOTAL=CVS (T$) 

120 PRINT TAB (2) MM$; TAB (5) NA $ ; TAB (29) SE$; ТАВ (33) АСЕ; ТАВ “37) TOTAL; 
ТАВ (45); 1 

180 NEXT 1 

140 INPUT “Which record= ==== =>”, RIK 

150 WHILE R] ⁄2>0 AND R:%<=LOF (1) /32 

160 PRINT TAB (2) “m*; ТАВ (5) “name”, ТАВ (29) “sex”, TAB (34) “age”, TAB (38) 
“total”; ТАВ (46) “ro” 

170 GET #1, RI% 

160 MM$=M$; Мф =N$; SE$ =SS 

155 АОЕ=СУ1 (S$); TOTAL=CYS (T$) 

140 PRINT ТАВ (2) MM$, ТАВ (5) NA $ ; TAB (29) SE $ ; TAB (33) AGE; ТАВ (37; TOTAL; 
TAB (45) R1% 

200 GOTO 140 


205 WEND 

210 CLOSE 

220 ЕМО 
RUN 
m name ых age total тп 
a Xia Meng f 19 580.5 1 
a Li Wei m 1 540 2 
a Wang Hong m 20 590.8 3 
a Xia Li f 18 520.6 4 
a Wang Shi m 19 535.4 5 
a Li Peng f 19 525.8 6 
a Lin Fang m 18 510.6 7 
a Jin Lin m 19 505.8 8 
a Wang Qing f 18 500.5 9 
a Zhao Bang m 19 520. 2 10 
wbicn гёсомі = 一 一 
п name sex age — total m 
a Wang Qing f 18 500.5 9 
which =-ecord 一 
m name sex age оа] m 
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a Wang Shi m 19 855. 4 


which record 一 一 一 一 = =>f 2 

m name sex age tota m 
a Li Wei m 18 510 2 
which гєсогй= = = == =>] —1 


Ok 


程序 中 ，60 一 130 读 随 机 文件 的 全 部 记录 ， 其 中 60 语句 用 到 LOF 函数 来 判断 文件 是 否 结 束 。 
140—205 行 用 来 检索 文件 中 存在 的 任 一 记录 。140 语 中 R1 兴 表示 R1 ZEATE, EEN 
类 弄 符 号， 见 第 十 二 章 § 12.2 
【 例 11. 8] 检索 、 重 写 或 删除 戎 机 文件 中 的 任 一 记录 。 此 例 仍 以 例 11.6 中 建立 的 学 生 档 

案 为 例 ， 兵 要 你 输入 记录 号 是 大 于 零 的 ， 系 统 都 给 响应 。 租 是 当 你 给 出 一 个 记录 号 超出 文件 
中 写 过 的 最 大 记录 号 ， 那 么 ， 系 统 提示 文件 的 最 大 记号 ， 并 告诉 你 的 记录 号 已 经 超过 了 文件 
的 最 大 记录 号 ， 要 求 你 重新 输入 新 的 记录 号 。 当 输入 的 记录 号 大 于 零 而 又 小 于 等 于 文件 的 最 
大 记录 号 导 ， 系 统 显 示 该 记录 的 内 容 ， 并 提问 此 记录 要 重 写 (Update》 吗 ? RE HR 
(Delete) ПЧ? 还 是 不 改变 (Nochange)。 若 回答 是 “U”， 那么 要 求 你 输入 重 写 内 容 , 而 后 系统 
重 写 此 记录 ; 若 回答 是 “D”， 那 么 此 记录 就 删除 了 ,而 记录 删除 的 标志 是 在 记录 的 第 - -个 字 
节 〈 也 就 是 缓 趾 区 的 第 一 个 字 节 ) 上 赋值 “D”， 这 样 ， 在 下 次 检索 记录 时 ， 只 要 检查 一 下 记 
录 的 第 一 个 字 节 , 若是 “DP” 则 就 表示 此 为 已 删 记录 ; 车 你 问答 的 是 “N”， 那么 ,记录 原封 不 
动 。 此后， 系统 又 要 求 你 检索 新 的 记录 ,如 此 循环 ,可 以 恰 索 、 重 写 或 删除 文件 内 的 任 一 记 
ж. 这 里 所 说 的 重 写 ， 有 两 诗意 思 ， 一 是 原 有 记录 的 改写 (Update)， 二 是 已 出 记录 的 重 写 
(Rewrite)。 本 程序 同时 有 这 两 种 功能 。 要 退出 循环 ， 只 要 输入 一 个 小 于 零 的 记录 号 ， 系 统 就 
退出 运行 。 А 

本 程序 较 全 而 地 反映 了 随机 文件 存 取 的 灵活 性 ， 基 本 上 包含 了 我 们 在 随机 文件 这 部 分 所 
学 的 上 内容 。 其 结构 化 流 私 图 如 图 11. 1 所 示 。 
程序 及 运行 结果 如 下 : 

10 * Retrieve/Update/Delete a teeorG 

20 ОРЕМ “student. dat” AS #1 LEN 一 32 

30 FIELD #1, 1 AS M$, 24А5М$, 1А55$, 2ASA$, 4AST$ 

40 RECLEN% =32 

50 FILELEN% =LOF (1) /RECLEN% 


$0 INPUT “whict record= == =>", RIK 
70 WHILE RI% >0 
80 ЈЕ R %>FILELEN %⁄ THEN PRINT R] 5; “is pest the end of file— —— —”, FILELEN% ; GOTO 
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90 GET #1, RI% 

100 MM$ =M$ : NA$=N$ :SE$ =SS 

110 AGE=CYI (A $> :TOTAL=CVS (TS) 

120 IF MM $ = “а” THEN PRINT “record”; R1%} “was deleted. ”: INPUT “Do you want tc rewrite (y/ 
п”, B$; IF BS = “Y” OR B$ = “y” THEN GOSUB 400 ELSE 180 

130 PRINT TAB (2); “т”; TAB (5); “name”, ТАВ (29), “sex”, TAB (35); “age”, TAB (39); 
“шаі”; TAB (473; “rn” 
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Белай 


РВ 
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PRINT ТАВ (2); MMS , TAB (5); NA $ ; ТАВ (29); SE$ ; ТАВ (34); АСЕ; ТАВ (38); TOTAL; 


ТАР (465; R1% 

INPUT “Update (U) or delete (D) or No change (N)”; R2S 

IF R2 $ — “и” OR R2$ = “u” THEN GOSUB 400 

IF R2 $= “D” ОВ В25 = “а” THEN LSET M $ = “d”, PUT #1, R1% 
INPUT “which record 
WEND 

CLOSE 

END 

INPUT “New record (name, sex, age, tolal):"; NA$, SE$, AGE, TOTAL 


>”, RI 


410 ISET M$ = “a”, ISET N $ =NA $. LSET S$ =SE $ 
420 LSET A$ =MKI$ (AGE), LSET T$ =MKS$ (TOTAL) 
430 PUT #1, R1% 

440 RETURN 


Ok 
RUN 

which retord = == =>, 

m name зех age total т 
а Warg Qing f 18 500.5 9 
Update (U) or delete (D) or No change (N)? ng” 
wbich record ==== >7 

m name sex age total т 
a Ling Fang m 18 510.6 7 
Update (U) or delete (D) ог No change (N)? da” 
wrieh retord = === >3H 

m name sex sge total тп 
a Wang Hong m 20 590.6 3 
Update (U) or delete (D) ог No chenge (N)? dx” 
which record= = = = > 5g" 

a name sex age tota? rn 
a Wang Shi m 19 535.4 5 


Update (U) or delete (D) or No change (N)? ue” 

New treeped (name, sex, age, total);? Xia Wei, m, 15, 8907 
which record = = = = > 3g” 

record 3 was deleted. 

Do you wnat to rewrite ууп)? y 


New retved (name, sex, age, total);? Wang Hong. 2, 16, 985.5,/ 


m пате sex age tota гп 
a Wang Hong £ 167585.5 3 
Update <U) or delete (D> ог No change {N}? ng 
which reerd= = ==> —] 

Ok 
BEEBI ROTA TILEF: 


0) HRE 9 号 记录 ; 

(2) юж т 号 记录 所 删除 此 记录 ; 

(3) 答案 第 3 号 记录 后 删除 此 记录 ; 

СО 答 索 第 5 号 记录 后 ,改写 它 成 为 夏 伟 Xia Wei) 同学 的 记录 ， 

(5) 检索 第 3 寻 记 录 ， 系 统 显 示 此 记录 已 由 ， 我 们 再 重 写 3 寻 记录 (仍然 是 王 红 约 ,但 
АЛАТ): 

(6) ЖА 1, т. 

以 上 我 们 对 文 性 的 操作 结果 ， 可 以 通过 运行 例 11. 7 中 的 程序 来 检查 ， 下 面 是 装 入 并 运行 
W ТЇЙ ЕРЕ, 可 以 看 出 第 7 За: 第 3 号 记录 删除 后 又 重 写 了 新 的 内 容 : 
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ms 号 记录 被 改 瑟 了 ; 其 季 记 录 均 没有 改变 。 


LOAD “file11— 07”, r 


m name sex age 
a Xiz Meng # 19 
a Li Wei m 18 
a Wang Hong f 16 
a Xia Lin f 18 
a Xia Wei m 15 
а LiFeng ғ 19 
d Lin Fang m 18 
a Ji Lin m 19 
a Wang Qing f 18 
а Zhao Bang m 19 
which reord= = —==>* —1 

Ок 


total 

580.5 
540 

985.5 
520.6 
890 

525.8 
50.6 
505.8 
500.5 
520.2 


最 后 ， 我 们 还 要 介绍 一 个 函数 一 获得 当前 记录 号 函数 LOC， 它 的 一 般 形 式 是 :. 


LOC (去 文件 号 > 》 


тос 承 数 能 得 到 刚刚 被 读 或 写 过 的 随机 文件 的 记录 号 〈 当 一 个 文件 打开 以 后 ， 尚 未 进行 读 或 
写 操作 时 ， 其 值 为 零 )。 它 常 被 用 于 杀 件 语句 中 ， 用 来 读 到 数据 文件 中 的 某 一 段 记 录 。 


111 什么 是 文件 ?文件 在 程序 设计 中 有 何 作用 ? 


з Ж 


11.2 顺序 数据 文件 有 何 特点 ? 它 是 怎样 进行 读 / 写 的 ? 


11.3 随机 文件 有 何 特 点 ? 它 是 怎样 进行 读 / 写 的 ? 


11.4 Жаза 名 学 生 ， 期 末 考 试 科目 有 数学 、 外 语 、 计 算 贡 语言 和 物理 四 门 课 。 试 编 一 
个 程序 ， 将 这 34 名 学 生 的 姓名 和 学 号 及 各 科 考 试 成 绩 存 入 一 个 顺序 数据 文件 。 
1.5 将 上 题 的 34 名 学 生 的 姓名 和 学 号 及 各 到 成 绩 建立 一 个 随机 数据 文件 。 
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第 十 二 章 ”结构 化 程序 设计 方法 和 编程 技术 


$12.1 软件 工程 方法 和 结构 化 程序 设计 


在 第 二 章 中 已 简要 地 介绍 了 结构 化 程序 设计 的 要 点 种 N- S 结构 化 流程 图 。 在 前 面 各 章 
站 我 们 都 是 按 结构 化 的 原则 来 编写 程序 的 。 

结构 化 程序 设计 方法 是 针对 前 “时 期 的 软件 危机 五 提出 的 ， 它 提倡 按 照 工 程 的 方法 ， 要 
求 脐 序 设 计 人 员 避 循 一 种 规范 化 方法 进行 程序 设计 ， 刀 正 程 序 设计 无 章 可 御 、 程 序 成 为 “个 
人 人 工艺品” 的 状况 .造成 理 序 质量 差 , 编程 和 准 护 效 率 低 的 主要 原因 是 在 程序 中 滞 月 GOTO 语 
М], #12. 7 表示 的 就 是 一 个 与 型 的 非 结构 化 程序 的 荡 程 示意 。 非 续 构 化 的 程序 可 读 竹 差 , 编程 
和 和 调试、 维护 苇 难 . 结构 化 程序 设计 方法 的 提出 是 程序 设计 方法 的 一 汤 革 命 ， 

自 1965 年 荷兰 学 者 Edsget W. Dijkstra 提出 用 结构 化 方法 进行 程序 设计 以 来 , 续 构 化 程序 
设计 的 理论 与 技术 日 益 完 善 ， 现 在 已 普遍 为 人 们 接受 ， 并 成 为 程序 设计 的 主流 。 

结构 化 程序 设计 方法 主要 包含 ， 

1， 自 顶 向 下 ; 

2， 逐 步 细 化; 

з. 模块 化 ; 

4 结构 化 编程 。 

这 些 已 在 前 面 作 了 简 皮 介绍 。 由 于 前 面 所 迪 到 的 问题 都 是 比较 简单 的 ， 因 此 有 些 读者 还 
未 范 充 分 贪 会 结构 化 程序 设计 方法 的 实质 及 其 实现 方法 ,在 读 老 学习 了 前 面 各 章 的 基础 于 ,在 
本 节 中 我 们 再 进一步 讨论 有 关 结构 化 程序 设计 的 问题 。 及 便 今后 设计 较 复 杂 的 理 序 对 有 所 遵 
їй 


我 休 逢 道 ， 程 序 设计 的 实质 是 以 计算 机 为 二 具 对 问题 求解 。 而 从 程序 的 设计 目标 (最 后 
要 达到 的 目的 ， 即 题 县 要求) 到 产生 一 个 源 程 订 之 间 要 痉 历 一 段 距 离 ， 研 究 程序 设计 方法 的 
目的 就 是 为 了 能 够 正确 化 地 、 有 规律 地 跨越 这 个 “距离 ”。 对 于 简单 的 问题 来 说 ,这 个 距离 是 
很 冠 的 ， 甚 至 一 步 就 可 以 达到 。 而 对 于 一 个 复杂 的 、 大 型 的 软件 来 说 ， 就 不 是 那么 轻 面 易 举 
的 ， 甚 至 会 在 拿 末 问题 后 感到 无 从 下 手 。 近 年 交 发 展 了 一 套用 工程 设计 的 方法 来 “生产 ” 软 
件 ， 这 就 是 “软件 工程 ”的 方法 。 

我 们 先 分 析 一 下 对 一 个 不 太 复杂 的 问题 ( 即 它 不 是 一 个 宠 大 的 、 复 杂 的 数据 处 理 系 统 ; 的 
开发 过 程 ， 

а) ”对 任务 进行 分 析 。 分 析 给 定 的 数据 、 需 要 完成 的 功能 、 对 输出 的 要 求 。 将 它 的 概 
括 地 、 轩 确 地 用 文字 整理 出 来 ， 这 一 步 称 为 “功能 的 规定 ”. 许多 人 对 这 一 步 不 村 重视 , 结果 
涯 程序 编写 并 运行 之 后 发 现 与 要 求 林 符 ， 重 新 返工 。 应 该 从 一 开始 就 使 每 - 步 都 是 明确 无 误 
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的 ,在 保证 前 一 步 的 正确 性 的 前 提 下 才 展 开 后 PRLE. 

D ”根据 要 求 ， 用 简明 的 话 概括 写 出 程序 最 后 应 完成 的 日 标 ， 例 如 “ 求 多 元 一 次 联 忌 
方程 的 根 ” “ЖИ ЖОЕ ЕЛИ”, HAE 2 一 100 间 素 数 ”等 。 这 是 ТАШИЕВ. 或 者 
称 为 “ 宏 任 务 ”(“ 宏 功能 ”)。 它 是 高 度 概括 的 任务 , 它 并 没有 有 具体 指 玉 应 包括 哪些 具体 的 操 
作 。 这 一 步 可 以 认为 设计 了 一 个 “抽象 的 程序 ”， 实 际 上 是 “顶层 设计 ”。 见 图 12. 1 中 的 “ 顶 
层 ”。 


统计 全 校 学 生成 绩 


打印 成 绩 


таа 
平均 成 绩 


пан 
уед 


打印 他 


图 12，1 

(3) H RE” DEDET “FEZ”? THE). ma. “BA”. Eili 
层 具 体 一 些 了 。 需 要 说 明 的 有 是， 每 一 步 由 上 一 层 向 下 一 层 的 细 化 过 程 都 应 确 保 其 正确 性 、 也 
就 是 说 ， 如 果实 现 了 第 二 层 的 子 功能 ， 就 能 实现 顶层 设计 的 宏 功能 。 假 设 细 化 过 程 进行 得 不 
合生 ,例如 少 了 中 加 那个 “计算 平均 成 绩 ”， 就 不 能 认为 细 化 过 程 是 正确 的 。 

《4) ”再 向 下 分 解 。 如 图 12. 1 中 第 三 层 。 也 就 是 将 子 坊 能 再 分 解 为 更 小 的 子 功能 。 这 个 
过程 一 直 继 续 下 去 ， 直 到 每 个 子 功能 简单 到 不 能 或 不 需要 ) 再 分 解 为 止 。 这 就 是 “逐步 细 
化 ”。 

应 当 说 明 这 个 “ 自 顶 向 下 、 逐 步 细 化 ”的 过 程 不 是 纵 对 的 。 在 细 化 的 过 程 中 如 业 发 现 原 
来 的 方案 不 理想 ， 也 可 以 采用 局 部 的 “ 自 下 向 上 ”的 方法 于 以 调整 。 鲍 如 在 图 12. 1 中 当 进行 
到 “打印 成 绩 ” 这 一 模块 的 细 化 时 ， 可 能 会 发 现 将 “打印 每 个 学 生平 均 成 绩 ” 等 项 合并 到 
“计算 各 个 学 生平 均 成 绩 ” 模 块 一 起 更 方便 , 此 时 可 以 将 有 关 的 第 三 层 模块 合并 ,因此 需 反 过 
来 修改 第 二 层 相应 模块 , 改 成 “计算 并 打印 成 绩 ”, 然后 接着 进行 其 它 部 分 的 让 项 向 下 的 逐步 
细 化 工作 。 也 就 是 说 ， 在 整体 的 “ 自 顶 向 下 ”过 程 中 可 以 有 局 部 的 “ 自 下 向 上 ”过 程 与 之 配 
合 , 一 切 依 具 体 问题 而 定 。 

在 模块 划分 中 ， 应 当 使 一 个 子 功 能 单独 构成 一 个 模块 ， 即 不 要 把 几 个 不 同 的 功能 放 到 -… 
个 模块 中 ， 记 就 是 要 使 模块 的 “ 艳 合 程度 ”尽量 地 小 ,“ 内 案 程 度 ” 尽 旱地 大 。 即 一 个 模块 与 
外 部 联系 耦合) 较 小 而 与 内 部 其 它 部 分 联系 较 大 ， 这 样 ， 在 需要 修改 程序 时 只 需要 修改 革 
一 个 模块 而 不 致 于 涉及 所 有 的 模块 。 也 就 是 增强 模块 的 相对 独立 性 。 模块 的 规模 不 宜 过 上 天。 人 在 
程序 中 一 般 不 起 过 50 行 〈 俱 也 不 是 绝对 的 ， 有 些 模块 功能 不 能 再 分 解 了 ， 超 过 50 行 也 是 可 
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Ай.) 

(5) ”根据 模块 的 功能 要 求 ， 分 别 对 每 一 个 模块 写 出 算法 部 出 N—S 流程 图 。 

(6) ”在 算法 设计 的 同时 ， 实 现 数据 结构 的 设计 ， 即 设计 出 各 模块 中 使 用 的 数据 结构 。 

Ст) ”根据 算法 和 数据 结构 的 设计 ， 用 高 级 语言 进行 结构 化 编码 〈 写 出 程序 ) 

G) ”进行 程序 调试 ， 确 保 程序 正确 。 

从 以 上 过 程 可 以 看 到 ， 逐 步 细 化 是 结构 化 程序 设计 中 一 个 极其 重要 的 组 成 部 分 是 结构 
化 设计 思想 的 核心 ， 它 指明 了 结构 化 设计 过 程 所 必须 遵 笑 的 方法 和 步 又 。 

其 实 ， 逐 步 细 化 方法 不 仅 适用 于 程序 设计 ， 而 且 适 用 于 一 般 的 工程 设 让， 甚至 社会 生活 
中 。 例 如 ， 写 一 篇 调查 报告 ， 可 以 采用 这 样 的 方法 : 先 确定 题目 和 中 心思 想 ， 再 将 整个 报告 
分 成 几 个 大 部 分 以 及 确定 各 部 分 的 题目 ， 然 后 再 进 . - 步 决定 出 每 ~- 部 分 应 表达 哪些 思想 要 

…， 直 到 作者 认为 此 提纲 已 足够 详细 为 止 ， 按 此 就 能 顺利 地 写 出 报告 来 。 

因此 ， 可 以 说 ， 逐 步 细 化 方法 是 关于 “方法 论 ” 知 识 中 重要 的 -部 分 。 这 种 从 抽象 一 具 
体 ， 从 寥 功 能 一 子 功能 ， 从 整体 一 细 目 的 分 解 过 程 ， 以 及 最 后 逐一 实现 这 些 细 目 的 过 程 ， 是 
非常 科学 的 、 具 有 严密 的 逻辑 性 的 。 因 此 可 以 说 ， 程 序 设计 是 人 们 思维 活动 的 - 面 镜子 。 也 
就 是 说 ， 程 序 员 的 程序 构思 是 否 有 条 理 ， 是 否 有 逻辑 性 ， 是 否 经 过 规范 化 训练 ， 这 些 素质 都 
要 在 程序 中 表现 出 来 。 

逐步 细 化 方法 是 由 “程序 设计 目标 ”走向 源 程序 的 正确 途径 ， 也 就 是 说 ， 用 逐步 细 化 方 
法 才能 从 “提出 任务 ”起 一 步 一 步 地 具体 化 ， 最 后 达到 目的 一 一 写 出 源 程序 。 

如 果 我 们 面 对 的 不 是 一 个 简单 的 程序 ， 而 是 一 个 比较 大 的 、 复 杂 的 数据 处 理 系统 〈 一 个 
系统 中 可 能 不 止 一 个 程序 ,而 县 由 若干 个 程序 组 成 的 )。 那么 , 进行 这 个 系统 的 开发 ,就 不 仅 
是 上 面 所 说 的 程序 设计 过 程 了 。 从 软件 工程 的 观点 ， 一 个 软件 系统 的 生存 周期 应 该 经 历 以 下 
几 个 阶段 ， 

O 问题 定义 与 需求 分 析 

(2) 概要 设计 

(3) 详细 设计 

(4) 编写 程序 与 单元 测试 

(5) 综合 测试 与 确认 运行 

(6) 系统 维护 

或 者 说 ， 软 件 生存 周期 由 以 下 三 个 时 期 组 成 : 加 软件 定义 时 期 〈 即 直面 的 第 ! 个 阶段 )， 
多 软件 开发 时 期 《上面 的 第 2 一 5 阶段 )， 轩 软件 维护 时 期 〈( 即 上 面 第 6 阶段 ) 。 

软件 定义 时 期 的 任务 悬 确定 :“ 要 解决 的 问题 是 什么 ",“ 有 无 可 行 的 办 法 *",“ 为 了 解决 这 
个 问题 , 系统 应 该 做 什么 ”", 即 确 定 要 开发 的 软件 应 当 具有 哪些 功能 , 以 及 系统 的 运行 环境 等 。 
这 是 进入 开发 时 期 之 前 必须 首先 解决 的 问题 。 这 个 时 期 的 工作 是 由 系统 分 析 员 和 用 户 共同 进 
行 的 ， 最 后 应 提出 一 个 完整 准确 的 系统 逻辑 模型 。 

进入 开发 时 期 后 ， 首 先进 行 梳 要 设计 ， 这 个 阶段 的 任务 有 是: 从 宏观 的 角度 提出 “怎样 解 
决 这 个 问题 "， 确 定 解决 问题 的 方案 ,将 一 个 大 的 系统 分 解 为 若干 个 子 系统 ， 妈 面向 用 户 的 
“功能 模块 ”(《 简 称 “ 用 户 功能 模块 > 。 根 据 “ 功 能 模块 ”要 求实 现 的 功能 ， 确 定 面向 程序 员 
的 “程序 模块 ”。 程 序 模块 是 从 程序 员 的 角度 考虑 如 何 实现 “功能 模块 ”的 要 求 。 要 为 每 -个 
程序 模块 写 出 一 个 “程序 设计 任务 书 ”。 该 任务 书 中 所 叙述 的 程序 目标 、 程 序 处 理 说 明 . 算法 
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规定 等 都 应当 是 能 为 程序 员 所 理解 和 接受 的 。 当 程 序 模块 的 规模 较 关 对 ， 还 需要 将 -- 个 程序 
模块 进一步 划分 为 若干 个 程序 子 模块 。 

在 详细 设计 阶段 ， 径 序 员 需 要 根据 交 给 他 的 程序 模块 或 径 序 子 模块 的 “设计 任务 书 ” 的 
ЖЖ. 详细 描述 算法 。 也 就 是 解决 “ 怎 伴 具 体 实现 这 个 模块 ”. 这 个 附 段 运 不 是 编写 高 级 语言 
程序 ， 而 是 详细 地 设计 出 解 题 的 每 一 个 步骤 ， 可 以 用 流程 图 、 药 代码 来 表示 。 

在 完成 详细 设计 之 后 ， 进 入 编程 序 阶段 ， 妈 用 高 级 语言 来 实现 详细 设计 阶段 描述 的 各 个 
操作 步骤 。 这 一 工作 称 为 “编码 ”。 只 要 详细 设计 阶段 的 结 轩 是 正确 的 ,编码 阶段 不 应 有 大 的 
HE, 关键 是 要 熟 统 地 掌 扬 和 使 用 高 级 语言 。 在 编写 好 程序 之 后 ， 要 分 别 对 每 一 个 模块 进行 
测试 ,检查 它 们 能 否 正 确实 现 所 规定 的 功能 。 如 有 猴 误 应 及 时 发 现 动 改正 。 

然后 将 各 个 模块 联结 起 来 测试 ， 使 软件 达到 预定 的 要 求 ， 如 已 确认 吕 个 系统 已 达到 预期 
目标 ， 即 可 交付 使 局。 

软件 开发 时 期 的 工作 到 此 结束 ， 

在 程序 交付 使 用 后 ， 在 实践 中 必然 会 发 现 一 些 问 题 ; 或 者 根据 用 户 的 需要 ， 要 求 讲 加 一 
些 新 的 功能 ; 或 者 由 于 运行 环境 的 改变 例如 计算 机 系统 的 更 换 )， 需 要 对 软件 作 其 些 修改 。 
这 就 是 软件 礁 护 时 期 。 这 个 时 期 是 很 长 的 ， 直 到 该 软件 被 淘汰 为 止 。 

定义 、 设 计 与 编码 、 测 试 、 使 用 维护 各 个 阶段 所 花费 的 工作 量 大 体 的 比例 为 : 
1:10: 50: 《50~1000)。 可 见 ， 越 到 后 面 的 阶段 所 花 的 工作 量 越 大 。 

应 当 说 明 ， 以 上 各 阶段 的 划分 并 不 是 很 严格 的 ， 也 不 是 一 成 不 变 扒 。 一 般 意 义 上 的 径 序 
设计 指 的 是 软件 开发 时 期 中 的 设计 和 编码 ， 即 涉及 黎 要 设计 、 详 细 设 计 和 编码 阶段 。 

元件 工程 中 各 个 阶段 一 般 井 不 是 由 一 个 人 从 头 到 底 去 完成 的 ， 而 是 分 别 由 不 同 的 人 去 完 
成 的 。 一般 说 ， 问 题 定义 与 需求 分 析 是 由 系统 分 析 员 完 成 的 , 概要 设计 是 由 主 程 序 员 完 成 的 ， 
详细 没 计 和 编写 程序 是 由 程序 员 完 成 的 。 没 试 工作 是 由 有 经 验 的 软件 人 员 完 成 的 。 作 为 程序 
设计 人 员 应 当 了 解 在 整个 软件 开发 阶段 中 自己 工作 的 位 置 与 要 求 。 


$12.2 选择 数据 类 型 


在 较 早 的 BASIC 版 本 中 ， 变 量 《〈 包 括 简 音 变 量 和 数组 》 的 类 型 只 有 数 入 型 和 字符 串 型 两 
大 类 ， 数 值 变量 不 再 分 类 ， 都 按 实 型 处 理 。 考 虑 到 程序 的 通用 性 ， 在 本 书 前 而 各 章 中 对 数值 
型 变量 都 没有 再 作 类 型 说 明 ， 即 把 它 的 全 部 看 作为 实现 变量 。 

MS BASIC (以 及 Applesoff BASIC 和 许多 BASIC) 提供 了 多 种 数据 类 型 , 它们 是 : 整 型 . 实 
旬 、 双 精度 型 和 字符 串 型 。 有 二 种 方法 表示 数据 的 类 型 。 

G) 以 变量 和 名 最 后 一 个 字符 来 说 明 数 据 类 型 。 见 表 12. 1 。 


312.1 
变量 类 型 RAE ж в 
E 型 ЕЗ АМ, COUNT 
实 型 E] Т}, AMOUNT 
RHEN # BH, PAYH 
FAPA t C$, NAMES 


例如 和 A 或 A! 代表 实 型 变量 , ПАО ИЗ, ЛОН ЕТЕ, A $ ETAPER. 
同样 在 DIM 语句 中 : 

10 DM В(10),С! (10),2%(10),Е%(10).Е$ (10) 

B с 是 实 型 数组 ，D 为 整 型 数组 . F 为 双 精 度 型 数组 ，F 为 字符 串 数 组 。 

从 表 12. 1 可知， 一 个 变量 名 后 面 车 元 类 型 说 明 符 ， 则 认 作 实 型 。 因 此 前 而 各 章程 序 所 用 
到 的 数值 变量 都 是 实 型 变量 。 

常量 也 有 类 型 之 分 。 MS-BASIC 规定 按 常量 的 字面 形式 可 以 区 分 其 类 型 : (1) 如 1, 一 10， 
123 JEER S. 但 超过 一 32768~3276? 范围 的 数 不 作 为 整数 ,其 中 去 7 位 的 数 作 为 实数 Ош 
1234567 作为 0.1234567X10' 处 理 )， 多 于 ? 位 的 作为 双 精 度数 处 理 (如 123456789 作为 
0. 123456789 10°), (D 带 小 数 的 数 是 单 精度 实数 如 123. 4，10.0), 伺 超 过 7 位 的 小 
数 也 自动 作为 双 精 度数 处 理 。(3》 用 “E” 表示 指数 符号 的 数 是 单 精度 实数 (如 1. 23E4 02, 相 
当 于 123.0)。 04) 用 “D” 表 示 指 数 符号 的 数 是 双 精 度数 (如 1.2345678D 二 02 表示 
123. 45678) , 

可 以 在 一 个 常量 后 而 二 上 类 型 说 明 符 以 指定 其 类 型 , 如 2% 为 整数 ,123! 为 实数 ，3. 5# 
为 双 精 度数 。 注 意 不 能 用 5 S 表示 5 为 字符 常量 。 

D 用 类 型 定义 诸 句 定义 变量 类 型 。 

用 DEFINT 定义 整 型 变量 (DEF Æ Define (定义 ) 的 缩写 ，INT 是 Integer 整数》 的 缩 
写 )。 用 DEFSNG 定义 单 精度 变量 (SNG 是 Single precission ( 单 精度 ) 的 缩写 )， Н DEFDBL 定 
义 双 精度 变量 (DBL 是 Double precision (ХОЙ) 的 缩写 ), 用 DEFSTR E XPA RER (STR 
是 String 《字符 串 ) 的 编写 ) 。 用 以 上 语句 定义 以 某 个 字母 开头 的 变量 分 别 属 于 整 型 . 实 型 、 双 
精度 型 和 字符 串 型 。 如 ， 

【 例 12. 1 了 

10 DERINT А, B: DEFSNG C—E:DEFDBL Р-Н, DEFSTR I, J 

20 Al=10/3 : FIN=1#/3 : C2=1/3 1: I= “BOY” 

30 X =10/3: Yt —1%/3 : Z—1/8 : T$S = “BOY” 

40 PRINT Al, X% 

50 PRINT FIN, YH 

60 PRINT C2, Z 

70 PRINT 1, T 

80 END 
分 里 定义 了 以 A 或 B ЭЕ ВЕЛЕШ ER Ek. ШС, D, E (Eli C 到 E) 开头 的 变量 为 
XA. МЕ, G, 瑟 开 头 的 变量 为 双 精 度 型 ， 以 I，1 开头 的 变量 为 符 串 型 ， 运 行 结果 如 下 : 


RUN 
3 3 CHAD 
- 3233333333333333 . 3333333333333333 MEAD 
3533333 3433333 《 单 精度 型 ) 
BOY BoY (FERA) 


请 注意 ; 1# 3405708253, T :73 得 到 单 精 度 结果 , 如 果 将 30 行 中 的 “Y# =1# / 
3? 收 为 “Y# 二 1/3”， 得 到 的 是 ，3333333000000000， 导 使 Y# 是 双 和 精度 变量 , 但 t/3 只 能 


绍 出 7 位 有 用 的 数字 。 
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表 12. 1 表示 省 种 类 型 的 数值 型 数据 的 有 关 性 质 。 


ЖЕ 12.1 

类 型 * 型 单 精 度 实数 RHAN 

在 内 在 中 占 字 节 数 2 4 8 
表示 精度 к а Шр. Еа 可 能 有 微小 误差 

有 效 位 到 Lareo 32767 箱 止 7 位 йш 

RREH жа. атата. туту | +O. 47x10-Ħ~1. 71x10 

вз | sa | жарк КТҮҮ: талия 

格式 FA H FHERR 等 用 *D" 表 示 


在 程序 中 不 同类 型 的 数值 变量 可 以 互相 赋值 ， 赋 值 后 按 被 赋值 的 变量 的 类 型 存储 也 可 
以 将 不 同类 型 的 数值 变量 混合 运算 ， 运 算 时 先 将 精度 恬 的 化 忒 确 度 高 的 ， 然 后 进行 同一 类 型 
的 运算 。 7 

СЯ 12. 2] 

10 19=3.6 : PRINT 1%, 

20 A! =I% +451 PRINT А: 

30 рё =—1#/3—A! : PRIT D£ 

40 В=0# +2. 34567891 = : PRINT B: END 

RUN ` 

+ 8.5 8. 853333333333333 ` 11. 17801 

说 明 : 10 行 中 将 单 精度 数 3. БКДА ЗР ЖОНЛЕ А 15; 由 于 1% 只 能 容纳 整数 , 对 小 数 部 分 四 会 
五 人 。20 行 中 “1 路 十 4 5”， 先 将 1 冯 的 值 转换 成 实 型 数 直 0 再 加 上 4. 5。30 行 中 ， 1 并 为 双 精 度 
Ж, з 为 单 精度 数 ， 先 将 3 转换 为 3 站， 然 万 进行 1 车 /3 闪 ， 得 双 精 虔 结果 。40 行 得 一 个 双 精 
ЖООШ БЕЛЕМ. 对 ? 位 之 后 的 数字 按 四 舍 五 人 原则 截 去 。 

也 下 以 用 类 再 转换 函数 对 不 同类 型 的 数值 进行 互相 转换 。 

CINT (Х› 将 x 转换 成 整 型 

ONG X) 将 和 5630 аЛ 

CDBL (X) FX ERRIREN 
其 中 XX 可 为 任何 类 型 的 数值 型 数据 ， 如 ， 

10 PRINT СМТ (3.5), CSNG (1#/%), CDBL (3%) 

输出 ， 

3 ‚3333333 3. 000000000000000 

当 程序 中 对 精度 要 求 比较 高 时 《7 RARER. JANAREN., щш ЖНГ 
确 时 应 该 用 整 型 。 例 如 ， 和 人 循环 变 量 如 果 用 实 型 变量 ,有 可 能 产生 循环 次 数 的 增加 或 减少 ， 
如 : 

10 FOR X=0 TO 2 STEP0.1 

20 PRINT SIN (X) 

30 NEXT X 

理论 上 应 该 循环 (2—01 /0. 1 十 1=21 K. 80 1 的 存 贮 是 有 误差 的 ， 因 此 每 循环 一 次 加 
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0. 1 时 就 会 积累 谋 差 , 加 完 20 个 0. 1 后 可 能 是 2. 000001 而 不 再 循环 了 ,丢失 一 次 循环 ， 可 使 用 
整 型 变量 作 循环 变量 : 

10 FOR 1%=0 TO 20 X=1%/10:PRINT SIN (X) :NEXT 1 

在 程序 设计 时 ， 主 确 选 择 和 运用 数据 的 类 型 是 很 重要 的 。 双 精度 数 的 运算 的 精度 高 ， 但 
占 内 存单 元 多 ， 运 算 速度 慢 。 单 精度 实数 次 之 。 整 型 数 存 贮 没有 误差 ， 占 内 存单 元 少 ， 运 算 
速度 快 ， 但 数 的 范围 小 。 在 程序 设计 时 应 根据 题 昌 的 要 求 、 数 的 范围 、 以 及 所 用 计算 机 的 内 
FREMMER, FARGE, 


$12.3 程序 风格 


写 文章 有 一 个 文章 风格 问题 . 例如 有 人 爱 用 文言 文 , 有 人 爱 用 帕 话 文 ; 有 文章 象 八股 文 ， 
杜 爆 乏味 ， 有 的 文章 生动 活泼 ， 引 人 入 胜 ; 有 人 爱 咬 文 虽 字 、 文 章 混 星 难 懂 ，、 有 人 直截了当 ， 
文章 通俗 易 懂 。 对 同一 个 内 容 不 同人 有 不 同 的 表述 方式 ,文章 风格 因 人 而 异 。 我 们 首先 要 求 
文章 能 使 人 看 懂 ， 能 正确 表达 意思 ， 同 时 希望 文章 风格 优美 ， 令 人 喜欢 。 同 样 程序 也 有 一 个 
风格 问题 , 风格 优美 的 程序 结构 清晰 ,含义 清楚 、 输 入 数据 易于 组 织 、 输 出 信息 整齐 美观 、 程 
序 容易 阅读 、 便 于 理解 、 使 用 方便 。 

什么 基 程 序 的 风格 (stgle), 并 无 严格 的 定义 。 一 般 是 指 一 个 程序 员 在 程序 设计 过 程 中 , 在 
程序 的 各 个 方面 〈 例 如 标识 符 (变量 ) 的 定 和 名、 程序 的 书写 格式 、 模 块 分 解 、 程 序 语句 编排 、 
输入 输出 设计 等 ) 所 表现 出 来 的 习惯 的 总 和 。 我 们 从 许多 程序 中 总 结 出 以 下 一 些 应 注意 的 问 
题 〈 其 由 有 的 在 前 几 章 中 已 经 提 及 过 了 )。 每 个 人 都 可 以 根据 自己 的 经 验 丰富 和 补充 它 。 一 个 
风格 优美 的 程序 应 该 : 

(1 程序 模块 化 ，- -个 模块 实现 -个 功能 。 模 块 由 子 程 序 实现 ， 模 块 的 排列 顺序 一 般 按 
调用 的 顺序 。 子 程序 的 位 置 一 般 放 在 程序 的 最 后 (END 语句 的 后 面 )。 这 样 可 以 避免 主 程序 的 
流程 直接 进入 子 程序 。 

《2) 同一 个 子 任务 的 有 关 操 作 不 要 分 散在 不 同 地 方 , 例如 , ЖЩ A, В, С, D 分别 在 四 个 
模块 中 用 到 ， 不 要 用 一 个 语句 一 次 读 人 。 

10 READ А, В, C, D 

或 : 10 INPUT А, В, C, D 
面 应 分 别 在 各 模块 中 读 入 ， 将 读数 据 与 对 这 些 数据 的 操作 放 在 一 起 ， 以 便于 阅读 ， 而 不 致 在 
读 程 序 时 上 下 来 回 寻 找 有 关 变 量 。 

(3) DATA 语句 应 集中 在 一 起 ， 一 般 放 在 程序 的 最 后 部 分 (ЕМО 语句 之 前 )。 一 

《4) 变量 名 应 尽 可 能 采取 “ 见 名 知 意 ” 的 原则 ,例如 以 RATE 代表 利率 ，COUNT Кж 
数 , PAY 代表 工资 等 特别 要 注意 不 要 使 用 含义 相反 的 变量 名 (如 用 DENOM (denominator 的 
缩写 )》 代表“ 分 子 ) Н NUMER (numerator 的 缩写 ) 代表 分 母 ) 。 

O 不 要 将 字母 和 数字 交叉 出 现在 变量 名 中 。 宣 如 А055, 使 人 不 易 辨 别 第 二 个 字符 是 字 
BR 0 还 是 数字 0, 等 三 、 四 个 字符 是 5 还 是 S。 又 如 AlB7 容易 误 认 为 AIBT, АЖЕН} Я 
出 错 ， 且 不 致 检查 。 

(6) 要 善于 利用 注解 语句 为 程序 和 各 程序 段 作 说 明 。 

СТ) 如 果 所 用 的 计算 机 系统 能 用 汉字 , 应 当 尽量 在 REM 语句 中 和 字符 串 中 使 用 汉字 , 用 
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汉字 输出 信息 。 

(8) 用 INPUT 语句 输入 数据 时 应 当 用 “提示 信息 ” 如， 

10 INPLT“ 请 输入 学 生 姓 名 和 学 号 "，NAME，NUM 

(9) 对 输入 数据 的 合法 性 进行 检查 ， 以 保证 数据 的 正确 性 。 

(10) 在 一 个 程序 或 一 个 子 程序 中 , 在 两 个 程序 段 中 月 空 语句 或 注释 语句 分 隔 开 ,以 便于 
阅读 〈 相 当 于 文章 的 分 段 )。 如 : 

10 

Тав) 
100 REM 
《第 二 个 程序 发 
200 REM 
《第 三 个 程序 段 ) 
100 语句 和 200 语句 可 以 只 写 “REM” 而 不 加 文字 注释 , 目的 只 在 起 一 空 行 作 用 , ШШЕ 
AFB. 也 可 以 在 100 语句 和 200 语句 中 不 写 REM， 只 写 语 句 标号 , 在 LIST 时 ,该 行 只 有 标 
号 〈 即 空 语句 ) 。 

(11) 采取 缩 进 格式 。 在 循环 中 将 循环 体 语句 向 右 缩 进 若干 格 。 有 循环 伴 套 时 ， 同 -- 层 的 
循环 体 写 在 同 -一 列 上 ， 这 样 层次 分 明 。 

GD 已 知 舌 环 次 数 的 循环 用 FOR 一 NEXT 循环 ,不知 储 环 次 数 而 只 给 出 短 环 条 件 的 ,用 
WHILE 循环 。 不 要 从 循环 体 中 转移 到 循环 体外 〔 非 正常 出 口 )。 

(13) 不 要 用 多 层 的 IF - THEN - ELSE IF - THEN - ELSE……。 因为 BASIC 只 能 将 它们 写 
在 一 行 上 , 不 易 辨 出 其 配对 关系 。 不 要 在 嵌 套 的 内 层 下 语句 中 省 略 ELSE 部 分 , 以免 使 ELSE 
与 THEN 配 戏 关系 出 错 ， 

ОФ 对 多 次 重复 出 现 的 表达 式 . 可 以 先 求 出 其 第， 放 在 一 个 变量 中 ， 以 咸 少 重复 汁 算 。 
如 果 表 达 式 中 包含 变量 (变量 的 值 不 是 固定 约 ;， 则 可 用 壬 定义 函数 定义 该 表达 式 为 一 函数 。 

05) 循环 变量 用 整 型 变量 。 

6) 利用 文件 结束 标志 《EOF) 结束 输入 ,而 不 用 计数 来 结束 输入 ， 如 ;: 

100 WHILE NOT EOF (1) 

110 INPUT #1, МАМЕ $. ADDR $ 

120 IF NAME$ = “ZHANG? THEN PRINT NAME $, ADDR $ 

200 WEND 
不 必 事 完了 解 文件 中 有 多 少 记录 。 . 

OD 不 要 只 是 管 单 地 输出 计算 结果 , 而 应 加 以 必要 的 文字 说 明 , 输出 的 信息 应 是 不 熟悉 
计算 机 的 入 也 能 看 侧 。 最 好 能 做 到 将 打印 的 结果 不 必 经 过 再 加 工 就 能 成 为 正式 文件 保存 或 上 
送 有 关 部 门 。 坦 该 事先 了 解 用 户 对 输 出 报表 的 要 求 ， 必 要 时 ,成 打印 成 表格 形式 ， 还 度 该 有 
т. “Н. ЮЖ. 

《18) ХАА ИГЕ Ж ht ЛУ АЕА, REEN АОК", ШЛГЕН. 

《19) 变 量 各 不 要 与 语句 定义 符 或 标准 函数 名 相同 ,也 在 要 包含 它 从 ,例如 不 要 用 PRINTA 
作 变 重 名 ， 如 果 输 入 时 不 小 心 插入 一 个 空格 成 了 PRINT 和 A， 成 了 输出 变量 A 了 。 

(20) 一 个 程序 访 当 配 有 必要 的 文字 说 证 ,证 程 序 说 明 书 , 包括 题目 要 求 、 采 用 的 数学 模 
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型 算法、 流程 图 、 变 量 合 义 、 对 计算 机 和 输入 输出 设备 的 要 求 、 要 求 输入 的 数据 等 。 也 就 
是 要 有 先 整 的 程序 文档 ， 以 便 保 存 备查 ， 有 些 程序 在 编制 完成 并 使 用 后 ， 发 现 问题 想 禾 改 时 
往往 难以 理解 原来 程序 的 信义 ， 难 以 下 手 ， 程序 维护 的 失 价 很 大 . 在 编写 程序 时 应 当 想 到 以 
后 区 个 阶段 可 能 遇 到 的 问题 ， 要 “为 别人 着 想 ”，" 为 以 后 着 想 ”。 

总 之 ， 一 个 风格 好 的 程序 要 注意 ， 筑 明 朴实 .不 卖弄 小 技巧 ， 不 要 光 考 虑 自己 。 而 要 首 
先 考虑 别人 在 阅读 和 使 用 时 的 方便 ， 反 程序 写 得 好 懂 些 ， 再 好 懂 些 ! 好 用 些 ， 更 好 用 些 ! 


812.4 HRSA 


一 个 大 型 程序 ， 往 往 是 由 若干 个 功能 块 所 组 成 ， 这 些 功 能 块 可 以 通过 链接 技术 ， 把 它们 
"PE 过 而 成 为 一 个 大 型 的 程序 , 这 就 是 链接 技术 在 程序 模块 化 设计 技术 中 的 应 用 。 序 谓 
“PER” (chain) 指 的 是 把 模块 化 程序 的 各 模 鞭 链接 成 一 个 可 供 运行 的 整体 。 

链接 技术 的 另外 一 个 作用 是 ， 它 包 售 着 覆盖 技术 ,所 户 覆 盖 (overlay) 是 指 在 运行 程序 过 
程 中 ,不同 程序 横 块 可 以 共 占 同一 模 内 存 空间 ， 利 用 覆盖 技术 可 己 在 较 小 的 内 存 空间 中 运行 
较 大 的 酸 谍 。 下 而 我 们 介绍 的 链接 语 握 ， 就 是 按 被 链接 程序 对 当前 程序 敌 盖 而 的 程度 来 分 类 
B. 


12.4.1 LAREREH 


执行 链接 语句 以 后 ， 内 存 牛 不 保留 源 夹 的 程序 ， 而 由 被 链接 程序 取 和 而 代 之 ， 此 时 可 用 全 
覆盖 链接 语句 。 它 的 一 般 形式 是 ， 
CHAIN <#>” [, <15>] i <ALL>] 
ER, <HR> BREPAR A: 
<: 行 导 之 为 被 链接 程序 中 的 某 一 行 号 , 意 轩 是 一 旦 链接 成 功 ， 当 前 程序 块 消失 ， 被 
链 凑 程 序 调 入 内 存 ， 并 愉 给 定 的 行 号 开始 执行 ， 当 < 行 寻 > 省 略 时， 程序 从 被 链 程 京 的 起 冶 
FFER. 
去 ALL> 这 个 参数 , 表示 把 当前 程序 运行 后 的 所 有 变量 都 传递 绘 被 链接 程 记 使 用 , 这 是 有 
参 链 接 的 -种 形式 。 兴 志 ALL> 这 个 参数 省 略 时 ， 可 分 丙种 情况 来 讨论 ， 
(一 ) 程序 中 有 COMMON ИЕ]. 这 是 有 参 链接 的 另 一 种 形式 , 这 种 形式 是 把 需要 传送 到 
被 链 程 序 中 去 的 变量 写 在 COMMON 语句 的 后 面 ， 而 其 他 变量 不 传送 。COMMON 语句 的 一 般 
ERE: 


COMMON ŞER 

таз, ЖШ УНДОН SE, FARAZI, Наа, MARR RRA 
都 不 必 在 被 链接 的 程序 中 再 用 DIM 说 时 请 句 说 明 其 空间 的 大 小 。 创 如 

10 COMMON А, DEC), C $ 

20 CHAIN “PROG?” 
КОШ А, МН DE 和 字符 事变 量 & 下 传送 到 被 链 程序 PROG2 中 去 ，20 {7E d, 55 
接 语 何 后 面 的 二 行 号 > 省 略 ， 说 明 连 链 成 功 后 ， 程 序 从 被 链 程 序 的 起 始 行 继续 执行 . 

〈 二 )， 程 序 中 无 COMMON А], CHAIN 语 司 中 无 <ALL> 选 择 参 数 ， 又 无 COMMON 语 
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句 相 配合 ， 那 么 ， 这 种 情况 就 虽 无 参 链接 ， 例 如 : 

200 CHAIN “B, SQUARE” 
执行 此 语句 以 后 ， 当 前 原 程序 文件 从 内 存 中 消失 ， 同 时 清除 为 它 而 开设 的 所 有 缓冲 区 和 关闭 
当前 所 有 文件 玉 删 除 所 有 当前 的 变量 知 圾 组 , 而 后 把 B 盘 中 的 程序 “SQUARE” WAIE, 并 
从 它 的 起 始 行 开 始 执行 。 

下 面 我 们 纯粹 是 从 熟悉 链接 语句 的 角度 来 举世 个 应 用 例子 ， 例 12. 1 是 全 覆盖 无 参 链 接 语 
TRZA: 例 12. 2 是 全 覆盖 有 参 链接 语句 的 应 用 。 

[#] 12.1] 已 知 在 磁盘 中 有 程序 “MAIN” 和 "AAA”， 读 这 两 个 程序 可 知 ， 它 们 是 互 链 

的 ,首先 是 “MAIN” 链 接 “AAA”, 面 后 是 “AAA” 叉 链接 “MAIN”。 程 订 在 不 同 的 阶段 ， 忠 
ЖИ ЖЇН НА. “МАШ” ЯП “ААА” 两 程序 的 清音 如下。 同时 也 列 出 了 运行 “MAIN"” EF 
的 结果 。 

10 * main 

20 PRINT ” а=”; 1000 

30 IF INKEY$=”” THEN 30 

40 CHAIN” aaa” 

50 PRINT” b=”; 3000 

50 END 


10 гам 
20 PRINT” c=”; 2000;” (#=== =” ада?” 
30 IF NKEY $ =°” THEN 30 

40 CHAIN ” main”, 50 


b=3000 
运行 程序 时 ， 读 者 可 以 注意 到 在 执行 链接 语句 时 ， 相 应 驱动 器 上 的 红 灯 会 亮 ， 涪 明 此 时 系统 
正 把 被 链 程 序 调 入 内 存 ， 而 原先 的 程序 消失 . 

【 例 12. 2】 BARA AEF “MAIN1” 和 “AAA1”， 该 这 两 个 程序 可 知 它们 是 互 链 

的 ,“MAIN1” 链接 “AAA1” 是 有 参 链 接 ， 而 且 是 全 部 参数 的 传送 ， 姑 “MAIN1” 的 全 部 参数 
在 链接 过 程 中 都 传送 给 文件 “AAA1”。 而 程序 “AAAl” 中 的 链接 语句 本 身 没 有 < ALL> 和 参数 ， 
参数 的 传送 是 通过 COMMON 语句 进行 的 ， 例 中 把 一 个 参数 D ЕН ЕЛЕ “МАМІ”, JE 
他 参数 不 传送 ， 链 接 成 功 以 后 , “AAA1” 程 序 从 内 存 中 又 消失 ， 系 统 把 “MAIN1” 程 序 再 次 
调和 人 内存， 并 从 指定 的 行 导 【70 语句 ) 开始 执行 直到 结束 。 程序 MAIN1 ЯП “ААА1” ДЛЯ 
行程 序 “MAINI” 以 后 的 结果 如 下 : 

10 > meinl 

20 А=10: В=20; с=30 

30 PRINT” a+b+c=”; A+B+C 

60 CHAIN “ааа]”,, ALL 


70 PRINT “etd=”; C+D 
80 ЕМО 


10 ' ааа] 
20 PRINT 
30 PRINT 
40 D=40; E= 

50 PRINT “e—d=”", E—D; “(= 
60 COMMON D 

70 CHAIN “main1”. 70 

80 END 


12.42 全 不 覆盖 (合并 ) 链 接 语 名 


执行 链接 语句 以 后 ， 若 同时 需要 保留 全 部 当前 程序 ， 那 么 可 应 用 全 不 覆盖 〈 邵 合并 ) 的 

链接 语句 ， 它 的 一 般 形式 是 
CHAIN MERGE “<k>” Г. <H>] [. <ALL>] 

程序 执行 此 语句 时 , 相应 的 驱动 器 红 灯 亮 , 此 时 系统 把 被 链 程 序 调 入 内 存 并 与 当前 程序 合并 。 
链接 成 功 以 后 , 程序 从 被 链 程序 的 << 行 号 > 继续 执行 。 其 中 王 行 号 > 和 <<ALL> 两 参数 的 含义 
跟 全 覆盖 链接 语句 相同 。 

有 MERGE 关键 字 的 链接 语句 〈 包 括 下 面 要 谈 的 部 分 缆 盖 链 接 语 句 )， 在 使 用 时 要 注意 ; 

(1)、 被 链接 程序 的 行 号 与 原来 程序 的 行 号 不 能 重复 ， 否 则 ,被 链 程 序 行 身 的 内 容 将 代替 
原来 程序 相应 的 行 号 内 容 。( 原 来 程序 也 称 当 前 程序 ) 。 

(2)、 要 求 被 链 程序 必须 是 AS 码 文件 。 


12.43 ”部 分 覆盖 链接 语句 


当 链 接 以 后 ， 要 求 保留 原来 程序 的 一 部 分 ， 其 余部 分 都 删除 ， 那 么 可 以 用 部 分 覆盖 链接 
语句 ， 它 的 一 般 形 式 是 ， 

CHAIN MERGE “<Ж##@ >” С. <415>] [L <ALL>], DELETE<5B> 

Жн. <AR> REHE H RRR. MA, СВ 4- 32 AE 
KREASE 122—5 222, 

程序 执行 此 语句 时 , ВГВ i ИГ ЛЕ <+? 128] СТЕ ?> 的 语句 内 容 , 而 后 把 被 
链 程序 调 入 内 存 与 当前 程序 的 留 下 部 分 全 并， 合并 以 后 ， 程 序 从 被 链 程序 的 那个 指定 行 号 继 
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续 执 行 。 

下 面 举 一 个 应 用 部 分 覆盖 链接 语句 的 例子 。 

【 例 12. 3] 在 人 口 普查 中 , 常 需要 分 析 各 项 调查 数据 , 而 这 些 数据 是 通过 每 人 填写 一 张 
调查 表 来 获得 的 ， 油 查 表 的 格式 如 表 12. 1 所 示 。 


表 12. 1 
W # 表 
# al тю i 
О. зе 01. <20 D. 41—50 
02. 女性 02. 21—30 Ds. 51—60 
03. 31—40 ge >60 
RP, 性 别 用 数字 1 代表 男性 ，2 代表 女性 ; 而 年 龄 用 1、2、3、4、5、6 分 别 代表 小 于 20 岁 、 


21 一 30 Ж, 31—40 Ж, 41—50 岁 、51 一 60 岁 、 大 于 60 岁 六 个 年 龄 等 级 。 本 程序 统计 20 Л, 
分 主 模块 和 子 模块 ， 其 中 主 模块 完成 统计 工作 ， 例 中 从 DATA 语句 中 读 入 数据 (其 实在 统计 
干 万 人 的 数据 输入 时 ， 用 卡片 输入 机 比较 方便 )。 子 模块 完成 制 表 工作 。 

о) ERREF 

用 数组 D (2, 6) 来 存放 不 同性 别 和 年 龄 层次 的 人 数 。 其 中 , 数组 元 素 Du 一 De 用 来 统计 
男性 各 年 龄 组 的 人 数 ; 数组 元 素 DaDa 用 来 统计 女性 各 年 龄 组 的 人 数 ; Du 一 Due 用 来 统计 男 
女性 合 在 一 起 的 各 年 龄 组 的 人 数 ，Dn 统计 男性 总 数 ， Da 统计 女性 总 数 ;，Do 统计 人 口 总 数 。 
程序 清单 如 下 。 
10 ? chain 
20 N=2: M 一 6 
30 DMD (N, M), L$ (N), C$ (М) 
40 FOR I=0 TO N: FOR J=0 TOM, D (1, J) =0; NEXT J, 1 
50 READ SEX, АСЕ; IF SEX=0 THEN 90 
60 D (SEX, AGE) =D (SEX, АСЕ) +1. D (0, 0) =D (0, 0) +1 
80 GOTO 50 
90 FOR 1=0 ТО N; READ L$ (1); NEXT 
100 FOR J=0 ТО M; READ C$ (J); NEXT 
110 TITLE$ “sex/age analysis” 
190 CHAIN MERGE “report”, 200, ALL, DELETE 200—990 
200 DATA 2, 1, 1, 2, 2, 3, 1, 1, 2, 5, 2, 6, 2, 1. 1. 2, 2, 1. 1, 1 
210 ЮАТА 1, 2, 2, 2, 1, 3, 1, 3, Z, 3, 1, 3, 2, 3, 1, 4, 1, 5, 1, 3 
90 ЮАТА О, 0 
980 DATA totle, male, female 
990 DATA totle, <20, 21—30, 31—40, 41—50, 51—60, >60 
中 ，30 语句 定义 数组 ，D 数组 统计 人 数 ,L$ 数组 放 表格 的 纵向 标题 ,C$ 数组 放 表 格 的 横 
向 标题 ; 50~80 行 读数 据 《 性 别 和 年 龄 )， 数 据 的 结束 标志 是 0; 90~100 行 读 表 格 的 纵 、 模 
标题 ; 110 行 给 表格 的 总 标题 赋值 ，190 行 是 部 分 覆盖 链接 语句 ,是 全 部 参数 的 传送 ,一旦 链 
接 成 功 ,删除 当前 程序 的 200~990 行 语句 ， 调 人 被 链 程序 ”REPORT” 与 当前 程序 的 留 下 部 
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分 合并 。 
(Q) 于 模块 程序 

子 模块 程序 是 制 表 程 序 ， 运 用 制 表 语 句 、 格 式 输出 语句 以 及 一 些 专用 字符 ， 翅 表格 数据 
ТЕШЕ Е, 

程序 请 单 如 下 ， 

200 > report 

240 PRINT TAB (30); USING “М алалла Ар TITLE $ 

250 PRINT СНЕ $ (218) +STRING $ (71, 198) +CHR$ (191) 

260 PRINT “I Items |”; 

270 FOR J=0 TO M; PRINT USING “Vn N” C$ (13у; NEXT J 

281 PRINT , GOSUB 350 

290 FOR 1--0 TO N 


300 PRINT USING “|з N”; L$ @» 

310 FOR J=0 ТО М, PRINT USING “Oot ## aoi”; D G, Jr: NEXT J 
312 IF I=N THEN 335 

320 PRINT: GOSUB 350 

330 NEKTI 


335 PRINT; PRINT СНЕ $ (192) +STRING$ (71, 196) +CHR $ (217) 
340 END 
350 PRINT СНЕ $ (155), 


360 FOR J=0 TO M, PRINT ——— —— NEXT 

365 РЕІМТ — —— 

380 RETURN 

运行 主 程序 的 结果 如 下 : 

RUN 

Sex/age analysis 

Кету totle | <20 1 21—30 31—40 41—50 51—60 >BD 

оце 20 | 5 [ч 7 1 2 1 

male п | 2 3 4 1 1 0 

female 9 3 а 5 n 1 1 
ок 

在 坊 制 釉 运 行 大 型 程序 对 ， 链 接 和 覆盖 转 术 是 十 分 在 用 的 ， 它 能 解决 “小 马 拉 大 车 ”的 


问题 。 


$12.5 陷阱 技术 


所 请 陷阱 技术 , 简单 地 说 是 使 所 设计 的 程序 在 运行 过 程 中 , 对 一 些 事件 让 能 力 进行 丸 再 ， 
处 理 完毕 以 后 ， 程 序 继续 工作 。 面 这 些 事件 的 发 生 ， 可 以 是 定时 的 或 者 是 随机 的 。 人 允许 用 户 
机 获 的 事件 主要 有 程序 性 出 钳 ， 利 用 键盘 上 的 功能 链 输 入 ; 时 间 定时 器 设 定时 间 已 到 以 及 异 
步 通讯 中 断 等 。 本 节 简 单 介 绍 章 三 种 事件 的 处 理 技术 。 它 们 的 一 般 过 程 都 是 先 编 好 一 段 预想 
事件 处 理 程序 或 称 续 元 处 理 程序 )， 再 在 程序 的 开头 放 一 来 栈 阱 设置 语句 ， 指 出 续 元 程序 的 
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入 口 。 


12.5.1 


ШЕ 


一 般 情 况 下 , 如 有 果 程 序 发 生 错 误 , 正在 运行 着 的 程序 会 自动 停止 执行 , 并 显示 出 错 信息 。 
那么 ， 应 用 出 错 陷 阱 技术 ， 可 以 捕获 一 些 矣 想到 的 错误 ， 此 时 程序 不 停止 运行 ， 而 是 转 去 处 
理 续 元 程序 ， 处 理 完毕 以 后 ,程序 又 恢复 正常 运行 。 与 出 错 陷 阱 技术 有 关 的 语句 是 : 

O HEDRER: 


此 语句 可 以 写 在 程序 
它 放 在 程序 的 前 而 、 


ON ERROR СОТО (475) 
的 任何 地 方 , 运行 程序 以 前 , BASIC 要 查看 程序 中 是 否 有 此 语句 , 一 般 把 
以 节约 查看 时 间 。 程 序 中 ， 若 有 此 语句 ， 那 么 在 运行 程序 的 过 程 中 ， 出 


现 错误 时 ， 程 序 转 去 


指定 的 行 导 去 执行 ， 例 如 : 
ON ERROR GOTO 5000 


如 出 现 错误 , 程序 转 至 行 号 为 5000 的 语句 行 继续 执行 , 用 户 应 该 事先 编制 一 个 错误 陷阱 续 元 
程序 ATEA 5000 开始 ) ， 它 的 任务 是 分 析 错 误 ， 处 理 错误 并 通知 用 户 ; 继续 执行 程序 或 等 
待 轩 户 新 的 指令 。 而 分 析 错 误 的 主要 手段 是 利用 BASIC 中 的 二 个 变量 ， 它 们 是 : 


ERR 用 来 取 当 前 的 错误 号 ; 
ERL 用 来 取 当 前 的 错误 行 号 。 
MS BASIC 常见 的 出 错 信息 如 表 12. 2 所 示 。 


MS BASIC 常见 的 错误 信息 表 表 12.2 
8 в 
й а х 误 会 文 
号 号 
NEXT without FOR 16 string formup too complex 
' (没有 配对 的 FOR 语句 ) (字符 串 表 达 式 人 复杂 ) 
2 Syntax error 24 Device timeout 
(语法 错 ) 《设备 超时 ) 
3 RETURN without GOSUB 26 FOR without NEXT 
(没有 配对 的 GOSU 语句 ) :没有 配对 的 NEXT WRAD) 
4 Out of data or Ош of paper 
(数据 读 完 ) (打印 机 用 完 或 打印 机 未 开 》 


Шева) function calt 


9 WHILE without WEND 


CERA ННІ) 《有 WHILE 无 WEND) 
FIELD overflow 
6 50 
СА ҺИ) 《字段 溢出 》 
7 Ош of memory 53 File not found 
《内 存 溢出 ) 《文件 未 找到 》 
в Undefinde line number 55 File already open 
аже 《文件 己 经 打开 ) 


®® 


【 例 12. 4) 求 平方 根 。 
程序 清单 和 运行 结果 如 下 ， 
' ' ERR 
20 ОХ ERROR GOTO 70 
30 INPUT “x=”, X 
49 — 1F X=$999 THEN END 
52 PRINT “sgr (x) =”; SQR (X) 
бо сото 30 


70 PRINT “Imaginary root;”; SQR (—X), “i” 


89 PRINT ®зэт=”; ERR,” : ERL 


90 RFSUME 30 


RUN 
x= 8 

sqr (х) =2.828427 
x=? —¿ 


sqr (x) =fmaginary root, 2. 828427 i 


ert 一 5 <rl=53 
x= 9998, 
ок 


Fg 请 
ü а х й а a 
9 | 号 
А | Sutseript cut of range 58 File already exists 
i Сево ü (文件 已 存在 》 
" Duplicate definition s1 Disk full 
I (多 重 定义 ) «Е 
f Division. by zeta м Ваа fie name 
| 《除数 的 零 》 (非法 文件 名 
a | Type mismateh вт Тоо many files 
1 
l (HARUN стка» 
И Ош of string space т Disk Wrlte Protect 
CARERE CSIRO 
5 String too long n Disk лос ready 
CERERA сажен 
02) 恢复 语句 : 
RESUME [ ¢ 行 号 )] 
了 续 元 香 序 以 后 ， 恢 复 到 指定 的 行 号 执行 ， 当 << 行 号 > 省 略 时 ， 恢 复 到 出 错 的 行 
二 行 号 > 为 NEXT， 则 表示 恢复 到 出 错 行 的 下 一 行 技 行 。 


程序 中 ，20 语句 为 出 错 陷 际 设 置 语句 ， 从 70 行 开 始 是 错误 事件 处 埋 程序 (BDP Pe F. "t 
输入 变量 x 信和 是 负 值 时 ,程序 转 和 人 76 行 六 始 执 行 ,输出 虚 根 , 同时 打印 出 错误 号 乔 钵 误 所 丰 
行 、 而 后 程序 恢复 到 30 行 语句 执行 。 


12.5.2 ЖИМ 


ЕЕЕ EE В, 
ОМ KEY (п) GOSUB< F H> 
其 中 ，<< 行 号 > 为 续 元 程序 的 和 人口 ， 而 mn 的 含义 如 干 圾 所 示 。 


а 1—10 11 12 1 1 15—20 


мы йу е FI~FI0 S + = > + [ЕДЫ 


可 见 , п {1-10 代表 功能 键 F1—F10, 11—14 代表 区 标 上 下 左右 移动 键 ，15~~20 为 自 定 
ADEE. 

程序 中 有 了 功能 键 陷阱 设置 诸 句 以 辣 ， 当 要 用 到 n 号 功能 键 中 断 时 ， 还 必须 用 “允许 品 
断 发 出 语句 ”; 

KEY (n) ON 
当 要 停止 第 n 号 功能 键 发 出 中 断 ， 但 义 要 记 注 弓 发 生 的 事件 (以 备 使 用 ) 时 ， 则 宕 用 “停止 
中 断 发 出 语句 ”: 
KEY (n) STOP 
下 面 举 一 个 简 总 例 千 , AEDE ЕКА И НЕЕ. 
С} 12. 5] 设 有 一 程序 正常 运行 时 在 屏 中 显示 时 钟 CTIME $ ) 的 变化 , PERH Fl Bš 

BAR 24 行 上 显示 字符 ТВАР, 程序 如 下 ， 

5? TRAP 

10 CLS 

20 ON KEY (1) GOSUB 500; KEY (1) ON 

30 KEY 《1 STOP 

40 LOCATE 12, 36: PRINT TIMF $ 

60 KEY 11> ON 

є0 GOTO 30 

300 LOCATE 24, 1; PRINT “TRAP” 

510 RETURN 
程序 中 , 20 ВЕЕ СР) Ж БЕЯ E GARP EA, BA TEEN ЛАВЕ. 
不 受 中 断 十 拢 .程序 俩 用 停止 中 断 发 出 语句 B0, EARTHY, 10 2ТЕ ЕЛЕ 
T. 显 冰 完毕 ，50 ЯТУ ЕЈ ЗС ЕІ 键 的 中 断 ， 以 便 在 此 期 间 发 生 的 中 断 得 到 处 理 ， 


12.5.3 ЕВ 


HERRERIA Рл ЕВЕ, НЫНЫ да Е Р. ВРВЦА ҮШ ИТИ а). 
ОМ TIMER (п) GOSUB 一 行 号 > 
其 中 , n 取 秆 1~36406 秒 (24 Лау, AREEN Е АИА. «тС НЕ 
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始 行 号 ， 它 的 设置 过 程 是 ， 

о 编制 续 元 程序 : 

(2) Hi ON TIMER (n) GOSRB 请 句 设置 时 间 间 陋 : 

(3) 用 TIMER ON 语句 启动 时 钟 i 虹 、 当时 间 计 时 与 设 定时 间 相同 时 , 风 发 出 时 钟 中 断 ， 
媒 去 续 元 程序 执行 ， 此 时 时 钟 妇 淮 并 重新 开始 计时 ， 执 行 好 续 元 程序 以 后 .系统 又 返回 到 被 
打 断 的 理 访 处 继续 执行 。 当 第 . .次 时 间 计 时 与 设 定 寺 间 相同 时 ， 又 发 出 第 二 次 中 断 。 这 样 不 
KEZ. -EFES XAR HHE TIMER OFF 为 止 。 

` K@|i2.?) SBS 10 秒 钟 在 屏 中 央 显示 日 期 和 时 间 ， 程 序 如 下 ; 

10" TIMER 

26 INPUT * T $ mm--dd--yyyy”: T$: РАТЕ $ =T $ 

30 INPUT ” S$ аһ: mm; ss” S$, TIME $ =S $ 

4015 

50 ON TIMER (16) GDSUH 1020 

60 KEY OFF 

70 TIMER ON 

80 IF INKEY $ ~ “” THEN 80 

96 END 

1029 LOCATE 12. 50 

1030 PRINT DATE$ ; “ 7”; TIME $ 

1060 RETURN 
程序 中 ，20 行 和 80 THEN ЭЖ H ТЕКИН, 50 TEB EIB P]. ЖЕГЕ 
E 10 秒 钟 . 续 元 程序 从 1020 行 开始 ; 6047 “KEY OFF” 的 作用 是 将 显示 屏 上 第 25 每 的 “ 芒 
能 键 作 用 显示 ”取消 《通常 显示 屏 上 的 第 25 行 专用 以 显示 功能 键 的 作用 ， 而 不 能 用 作 程 序 显 
乐 结果 ， 如 需 利用 第 25 行 显示 运行 信息 ,， 则 用 KEY OFF 关闭 “功能 键 显 未”) 。70 行为 开启 
时 间 计 时 。1030 行为 在 指定 位 置 显示 日 期 和 时 间 ，TIME $ 为 系统 时 钟 函数 ， 它 以 30 行 给 它 
的 初 值 为 基础 ， 不 断 改变 时 间 值 . 在 执行 80 行 过 程 中 ,只 要 每 到 10 秒 钟 就 执行 一 次 子 程序 ， 
显示 时 间 。 和 如 要 终止 运行 接任 一 键 即 豆 。 注 意 执 行 子 程序 完 后 返回 到 被 打 断 处 继续 扒 行 ， 而 
不 是 返回 6247, 

习 题 

i2. 1 请 叙述 结构 化 程序 的 主要 特点 。 结 构 化 程序 与 非 绪 稳 化 程序 主要 区 列 是 什么 ? 

12.2 如 何 实现 -个 结构 化 程序 设计 过 程 Y БАЕЛ Т 

:2. 3 在 进行 模块 分 艇 时 应 遵循 那些 原则 ? 

12.4 什么 是 软件 工程 方法 ? 软件 生命 局 期 包括 哪 几 个 阶段 ? 结构 化 程序 设计 在 软件 工 
程 中 的 位 置 和 作用 是 什么 ? 

12.5 BASIC 品 数 值 数 据 分 为 哪儿 个 类 卉 ? 各 有 什么 特点 ? 在 什么 情况 下 使 用 哪个 类 
型 ? 

12.6 写 出 焉 面 程序 的 运行 结果 . 

<) 10 FOR А=1 ТО 10 STEP 0. 5 

20 B% =A : PRINT E% 
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30 NEXT А 
40 END 
(2) 10 DEFINT А; DEFDBL В 
20 Bl= 1/16 ; В2=1/7 
39 ВЗ== 1/6 ; B4=1#/7 
AD Al—B] : A2=B2 : A3=B3 : A1=B4 
50 Cl1 一 Bl : С2=В2 ; C3=B3 y С4=С4 
6) PRINT A], А2, A3, А4 
79 PRINT ВІ, B2, B3, B4 
8) PRINT С], C2. СЗ, C4 
99 END 
127 “用 双 精 度数 据 编程 序 ， 求 一 元 一 次 方程 式 的 根 ， 
t — 0. lz — 2.5 = 0 


12.8 根据 你 自己 的 经 验 、 你 认为 怎样 的 程序 才 是 一 个 好 的 程序 ? 

12.9 你 能 对 S 12. 3 程序 风格 中 列举 的 应 注意 的 问题 作 一 些 补充 吗 ? 你 自己 平时 在 编程 
序 时 哪些 已 注意 到 了 ? 哪些 还 没 注意 到 ? 

12.10 ”请 你 从 本 书 中 选择 任 一 例题 程序 , 对 它 进行 修改 补充 , 以 使 之 具有 更 好 的 程序 风 
格 。 

12.11 请 叙述 链接 与 覆盖 的 概念 。 在 什么 情况 下 会 用 到 链接 与 覆盖 。 

12.12 将 第 十 一 章 习题 10.12 ”的 要 求 改 为 ， 不 用 菜单 ， 而 用 链接 覆盖 技术 ， 当 做 完 加 
法 练习 后 自动 链接 入 减法 模块 ， 然 后 是 乘法 模块 、 除 法 模块 ， 最 后 计算 总 分 〈 全 对 为 400 
СЭД 

12.13 ”设计 一 个 程序 ， 包括 5 个 模块 ,分别 用 来 实现 : АЕН, ЖИЙ, RAER 
印 。 这 5 个 模块 分 别 以 文件 各 “MATIN?， “MATADD”，“MATSUB”， “MATMUT”， 
“MATPRI”。 主 榨 程 序 先 显示 程序 功能 说 明 ， RERA “MATIN”, 输入 数据 ,“MATIN” 模 
块 再 链接 入 “MATADD”……， 即 第 一 个 模块 链接 入 第 二 个 模块 ， 第 二 个 模块 链接 入 第 三 个 
模块 , 在 每 个 模块 中 分 别 完成 运算 和 打印 。 第 五 个 模块 再 链接 主 控 模块 “MATN”, 在 MAIN Ж 
块 中 最 后 打印 “The end”， 然 后 结束 。 

12.14 设计 一 个 时 钟 计 时 显示 程序 ， 每 秒 显 示 一 次 时 间 , 每 陋 1 分 钟 发 出 一 次 响声 。 用 
ВЕЕР 语句 式 PRINT СНЕ $ (D 发 出 声响 。 如 : 

10 BEEP 
或 10 PRINT СНЕ $ (7) 

12.15 设计 一 个 有 陷阱 的 程序 , 用 来 处 理 “ 未 打开 打印 机 而 用 了 LPRINT 语句 ”的 情况 。 
当 出 现 此 情况 时 ， 由 ON ERROR 语句 转 到 指定 的 陷 娃 续 元 程序 ， 在 此 程序 段 中 输出 信息 
“Check printer”， 然 后 等 待 操作 人 员 打 开打 印 机 后 按 任 何 一 键 程序 恢复 运行 。“ 未 打开 打印 机 ” 
的 错误 代 玛 为 27。 

12.16 设计 一 个 程序 ,用 FOR 循环 求 2—- ， 当 按 功能 键 <F3> 后 , 程序 就 停止 累加 , 输 


出 最 后 一 项 (1) WDR P zt. 
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第 十 三 章 常用 算法 程序 举例 


AHAL, AMENAT EH BASIC 语言 进行 程序 设计 的 基本 方法 .并且 举 了 - 些 较 
简单 的 例子 。 考 虑 到 在 学 习 各 章 过 程 中 主要 的 任务 是 熟悉 BASIC 有 关 语 句 和 函数 的 应 用 ， 周 
时 考虑 到 不 同 领域 、 不 同 程度 的 读者 的 情况 ， 在 前 面 各 章 中 所 介绍 的 算法 都 是 最 基本 的 ， 节 
使 没有 学 过 高 等 数学 的 读者 也 能 掌握 。 

在 此 基础 上 ， 读 者 应 当 进 一 步 学 习 和 掌握 有 关 的 算法 。 程 序 设计 要 综合 用 到 算法 、 数 据 
结构 、 结 构 化 程序 设计 方法 、 以 及 计算 机 语言 工具 这 四 个 方面 的 知识 。 可 以 用 以 下 公式 家 
达 

结构 化 程序 = 算法 十 数据 结构 十 结构 化 程序 设计 方法 十 计算 机 语言 工具 
或 者 说 ， 一 个 程序 设计 的 过 程 是 : 根据 选 定 的 数据 结构 ， 选 择 合适 的 算法 ， 采 用 结构 化 程序 
设计 的 方法 来 描述 此 算法 ， 最 后 用 一 种 计算 机 语言 实现 它 。 

BASIC 提供 的 数据 结构 比较 简单 , 主要 有 简单 变量 和 数组 两 大 类 . 四 此, BASC 程序 设计 
的 重点 是 算法 设计 。 算 法 分 为 数 信 运算 的 算法 和 非 数 值 运算 的 算法 两 大 类 。 数 值 运 算 一 般 可 
以 借鉴 现成 的 数学 模型 ， 可 以 运用 数值 分 析 方 法 ， 因 此 对 数值 运算 的 研究 比较 深入 ， 算 法 比 
较 成 熟 。 对 各 种 数值 运算 都 有 比较 成 热 的 算法 可 供 选 用 。 常 常 把 这 些 算法 写成 程序 形式 汇编 
成 册 或 者 存放 在 磁盘 或 磁带 上 ， 供 用 户 调用 。 例 如 有 的 计算 机 系统 提供 “BASIC 数学 程序 库 ” 
或 “FORTRAN 数学 程序 库 ” 等， 值 用 十 分 方便 。 而 非 数 值 运算 的 种 类 繁多 ， 要 求 各 异 ， 难 以 
规范 化 ， 因 此 只 能 对 一 些 典型 的 非 数 信 运算 算法 (如 排序 算法 ) 作 比较 深入 的 研究 。 其 它 的 
韭 数值 运算 问题 ， 往 往 需 要 使 用 者 参考 类 似 算法 重新 设计 解决 特定 问题 的 专门 算法 。 

在 本 章 中 不 可 能 罗列 各 种 算法 ， 只 能 介绍 一 些 常用 的 典型 算法 ， 且 的 是 帮助 读者 了 解 如 
何 设计 - -个 问题 的 算法 ， 并 能 举一反三 。 

本 章 中 的 程序 可 以 结合 前 面 各 章 内 容 进 行 学 习 。 不 同 专业 ， 不 同 穆 度 的 读者 可 以 根据 需 
要 选 学 。 


813.1 穷 Ж 法 


有 一 些 问题 ， 需 要 从 若干 个 方案 中 选择 答 合 需要 的 -一 种 或 多 种 方案 ， 又 无 现成 的 公式 可 
用 时 ,往往 用 “ 穷 举 法 ”， 即 把 所 有 的 可 能 都 试 一 下 ,一 个 一 个 地 判断 选择 是 否 所 需 的 。 第 五 
章 中 例 5. 25 ”就 是 穷 举 法 的 一 个 例子 。 

【 例 13.1] 百 鸡 问题 。 我 国 古 代数 学 家 张 丘 建 在 《 算 经)》 中 出 了 一 道 题 :“ 鸡 等 一 , 值钱 
E: 鸡 母 一 . 值钱 三 ; 鸡 锥 三， 值钱 一 。 百 钱 买 百 鸡 ， 问 鸡 攻 、 母 、 雏 各 几何 ?” 其 意 为 ; 每 
只 公鸡 5 元 、 母 鸡 3 元 ， 小 鸡 三 只 1 元 ,用 100 元 买 100 只 鸡 ， 问 公鸡 、 母 鸡 、 小 鸡 各 可 买 
多 少 ? 
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先 列 出 数学 式 子 。 设 x、y、z 分 别 为 公鸡 、 母 鸡 和 小 鸡 数 ， 则 从 题 意 可 以 写 出 : 
| z 十 # 十 z= 二 100 (1) 


57+ 3+ $ = 100 (2) 


三 个 未 知 数 只 有 两 个 方程 式 , 不 能 解 出 z,y,z, 如 果 三 个 未 知 数 中 已 确定 了 一 个 ， 其 它 两 个 未 
知 数 就 可 以 求 出 了 。 假设 工 已 知 ， 则 解 上 述 方程 可 得 ， 


25 一 了 x 工 


= 一 75 十 了 X 


但 现在 了 并 不 知道 ， 所 以 用 穷 举 法 把 每 一 个 都 试 一 下 ,看 对 于 某 一 个 立 、 求 出 的 y 和 z 是 
BRIERE. TAHU FEF: 

10 PRINT “cock”, “hen”, “chick” 

20 FOR X=0 TO 100 

© 30 Y=25—7/4+X 

40 Z=75+3/4*X 

50 IF Y>) AND Z>0 AND INT (Y) =Y AND INT (Z) =Z THEN PRINT X, Y, Z 

60 NEXT X 

70 END 
其 实 公鸡 不 可 能 有 100 只 ， 最 多 20 只 〈 因 5 元 一 只 )。 ERE, ЛИ 20 只 ,因为 100 
元 全 买 了 公鸡 ， 就 买 不 了 母 鸡 和 小 鸡 了 ， 因 此 X 最 大 为 19。20 语句 可 改 为 ;“FOR X=0 TO 
19”, 


运行 结果 如 下 : 

cock hen chick 
0 25 75 
4 18 78 
8 11 81 
12 4 84 


但 是 这 种 方法 要 事先 解 方程 式 ， 要 人 做 的 事 太 多 ， 不 方便 。 可 以 用 另 一 种 方法 ; 先 定 一 
个 = 值 , 再 用 穷 举 法 一 一 找 出 y 的 可 能 值 ， 然后 看 在 一 组 =,g 值 的 前 提 下 ， 有 无 z 可 以 满足 百 
钱 买 百 鸡 的 条 件 ， 可 以 这 样 写 出 程序 ， 

10 PRINT “cock”, hen”, “chick” 

20 FOR X=0 TO 100 

30 FOR Y=0 TO 100 

40 Z=100—X—Y 

50 IF 5#X+3+%#Y+Z/3=100 THEN PRINT X, Y, Z 

60 NEXT Y 

70 NEXT X 

80 END 
这 样 把 所 有 的 z,y,z 可 能 值 的 组 合 都 一 一 判断 是 否 符合 要 求 。 需要 执行 内 循环 体 101 X 101— 
10201 次 。 实 际 上 , 如 前 述 х 不 可 能 大 于 19, 同 理 у 不 会 大 于 33, 因此 , 20 和 30 语句 可 以 改 
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写 为 ， 

20 FOR Х=0 ТО 19 

30 FOR Y=0 TO 33 
ХРЕН АЛИНИН 20X34—680 К, MY WANE. TUAE, PIE, MELA 
程序 ， 提 高 运行 效率 。 

穷 举 法 看 起 来 好 象 很 “条 ”要 试 遂 所 有 的 可 能 方案 , 但 这 却 是 “没有 办 法 时 的 办 法 "， 保 
添 所 能 出 结果 ， 计 算 机 用 乌 环 来 实现 穷 举 ， 速 度 是 很 快 的 。 当 然 如 果 能 用 直接 的 方法 求 出 结 
果 可 以 不 用 穷 举 法 。 


513.2 递 ж 法 


在 第 五 章 中 介绍 了 递 推 的 概念 和 方法 , 例如 求 Fibonacei 数列 , oR al 等 。 用 “ 递 推 ” 方 法 
馈 题 的 关键 是 确定 ， 咏 吉 推 公式 ， 久 初始 条 件 《边界 条 件 )。 

递 推 的 一 种 重要 形式 是 “ 便 推 "， 即 从 包 知 的 最 后 续 果 和 递 撞 公 式 倒 推出 初始 情况 。 

【 例 13. 2】 猴 子 吃 桃 。 

小 猴子 第 一 天 摘 下 若干 个 桃子 ， 当 屠 吃 掉 了 一 半 ， 还 不 过 净 ， 又 多 吃 了 一 个 。 第 二 天 早 
上 又 将 剩 下 的 桃子 吃 掉 一 半 , 又 多 吃 了 一 个 , 以 后 第 天 早上 都 吃 了 前 一 天 剩 下 的 一 半 另 一 个 。 
到 第 10 天 录 上 猴子 想 再 吃 时 ， 见 到 只 剩 一 个 桃子 了 。 问 第 一 天 砍 子 共 摘 了 多 今 个 桃子 。 

这 是 一 个 与 型 的 “ 倒 推 ”问题 。 从 最 后 一 天 起 逐 天 推算 出 前 一 天 的 桃子 数 ， 直 到 推出 第 
1 天 的 为 止 。 设 第 n 天 炳 子 数 为 mx ， 已 知 它 是 前 一 天 的 桃子 数 a 的 1/2 再 减 去 1。 即 , 


а= -1 


即 ， z = G+ 1) x 2 
利用 此 公式 可 以 从 第 = A k pi ЖЕ АРАК, ЯА ЕЗ, 
z = 1 
可 写 出 以 下 程序 : 
10 DM X <10) 
20 X(]0)=1 
30 FOR N=10 TO 2 STEP 一 上 
40 X (N—1) = (X (N) —i}) #2 
50 NEXT N 
БО PRINT” the number of peaches is ;”; X (1) 
70 END 
运行 继 困 如 下 : 
the number of peaches is ; 1534 
БЕН ТИН. X (1) ~x (0) 的 值 分 别 为 第 1 天 到 第 10 天 的 桃子 数 ， 今 用 递 排 方 法 ， 
但 不 是 先 代 法 ， 并 不 存在 用 一 个 变 基 的 新 值 代 敬 它 的 原 值 。 下 面 的 程序 不 用 数组 ， 用 迭代 方 
法 来 实现 递 推 。 


10 X=1 
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20 FOR N=10 TO 2 STEP 一 1 

30 X= (Х+1) > 2 

0 NEXT N 

5@ PRINT ” the number of peaches is :”; x 

#0 END 

注意 : FOR 语句 中 NN 从 10 变 到 2, 不 要 写成 : FOR N= 10 TO 1, 因为 每 次 循环 是 从 本 天 
推出 前 一 天 的 情况 。 最 后 一 次 循环 是 从 第 二 天 推出 第 一 天 的 情况 ， 其 执行 9 次 《而 不 是 10 
Ж) 循环 . 


$13.3 RARER 


ЖОЖ yG) [ed] 区 间 的 定 积分 ， 


А 


m, | е 


在 几何 意义 上 , ERDE S 曲线 与 直线 > 一 ay = 0,z = b HR АТ ВАЛО mifa, 不计 
算术 求 定 积分 不 是 用 媳 析 法 求 它 的 准确 值 ， 而 是 用 近似 方法 求 面积 ， 为 了 求 出 该 面积 ， 可 以 


将 [a, 杂 分 为 若干 个 小 区 间 , 每 个 区 间 长 度 为 。 二 < ，* 为 区 闻 数 .近似 地 求 出 每 个 小 曲线 梯形 
面积 , 然后 怨 它 们 如 起来， 就 近似 地 得 到 总 面积 ， 即 定 积分 约 近 似 值 , AA САТИН 
小 )， 愈 接近 准确 值 。 见 图 13.1, 

近似 求 小 曲线 梯形 的 方法 ， 常 用 的 有 以 下 三 
种 。 

(D Ж ЖБ. 用 小 矩形 代替 小 的 曲线 梯形 “ 见 
图 13. 2 (ay). 然后 将 各 小 矩形 容积 累加 之 。 

(2) 梯形 法 .在 小 梯形 代 葵 小 的 曲线 梯形 { 见 
图 13.2 05), 

(3) ЗЕ (овое ) 法 , 在 小 区 间 范 围 内 , JE 
RRA Со) RESO „Л б) Б Со) 在 ",e 和 


еа LARIS ЖЕШИН лг) 和 
直线 z = суы = 0z 一 《所 图 的 小 曲线 梯形 面积 。 


图 13. 1 
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fixi to 


ia) 


图 13-2 


13.3.1 PŽ 


RES АЕ хт. S — A JMBJE0 KO а), pa = 一 WER. 第 - 
个 小 矩形 的 底 为 f(a 十 в), лу. sss, 最 后 一 个 小 适 形 的 底 为 Ke 二 人 一 0D 及， 
Ni TREE SET 
5, = hk «ра + G— 1) * 
用 矩形 法 求 定 积分 的 N-S 图 见 图 13.3 


【 例 13，3] 求 | same 


3 


xa 【第 一 全 短 形 而 的 起 点 ) 
ffi CREE KIR 
з ОЯ, Wi 


hÆ PEENED 


575-9, ORME ED 


xx 三 x+ mt 一 个 给 形 的 高 的 起 点 / 
а= ЕЕ 


РА 13.3 


根据 流程 图 编 出 程序 ， 


10 INPUT” А, В, N=”, А, B, N 


20 Х=А 
30 H= (B—A) /N 
40 FO=SIN (X) 
50 S= 
80 FOR 1=1 TON 
70 SI=F0*H 
30 5=5+51 
DO X=x+H 
100 FO=SIN (X) 
110 NEXT1 
120 PRINT “S—”*; 5 
1350 END 
以 下 是 三 次 运行 的 结 录 : 
ТА, B, N=0. 1, 19 
S— .417241 
ЖА, B, N=0. 1, 1007 
S= . 4554804 
BA, В, N=0, 1, 10007 
S= .4592744 
ҢЕЛ ЖЕ УАУ ЕН f(a — 5) , КЕЖЕ EEE АЕА АГЕН. 
大 ， 只 需 将 40 语句 改 为 
40 FO=SIN (X+H) 
即 可 。 从 程序 运行 结果 可 见 ， 区 各 数 N NLK. 就 愈 接近 积分 的 准确 值 ， 但 送行 时 铅 岂 相应 如 
长 。 
如 果 和 欲求 其 它 画 数 的 定 积分 ， 只 种 修改 各 和 100 语句 即 可 。 也 可 用 自 定义 函数 : 
5 DEF FNF(X)—SIN (X) 
然后 将 40 和 100 语句 中 的 SIN (X) 改 成 FNF (X) 即 可 。 


13.3.2 梯形 法 


нева, HEETE, а 


第 一 个 小 梯形 面积 为 ， 


第 i 个 小 梯形 面积 为 : 
oo Tata DD Hiti) 
& 一 > x k 


Й 


【 例 13，4 ARERR | sinar 
А 
程序 如 下 ， 


10 INPUT ” А,В, N=”, A, В, N 
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I5 H= (В-А) /N 


20 X=A 

40 5=0 

60 FORI=1TON 

70 51== (SIN((I— 1) * H)+SIN(I * H)) + H/2 
80 S—S+SI 

]10 NEXTI 

120 PRINT “S=”, 5 

130 END 


以 下 是 三 次 运行 的 结果 : 
@ A.B. N=0, 1, 10 


5== . 4593146 
@ А. В, N=0, 1, 100 

S= . 4595938 
@ А, В, N=0, 1, 1000 

S— . 4596978 : 
其 实 . 上 一 个 小 梯形 的 下 底 就 是 下 一 个 小 梯形 的 上 底 ， 因 此 不 必 每 次 重复 计算 。 积 序 可 


改写 如 下 : 
10 INPUT “А, B, N=”, А, В, N 
15 H= (В—А) /N 


40 5=0 

50  Fl=SIN (A) (上 底 ) 
60 FOR 1=1 TON 

70 F2=SIN (A+I*H) (ТЖ) 


75 SI= (Fl 十 F2) *H/2 ОМЫЛ О 
80 S—S+SI 〈 小 梯形 面积 累加 ) 
85 F1=F2 (将 本 次 下 底 作 为 下 一 个 梯形 的 上 底 } 


110 МЕХТІ 
120 RPINT “S—", S 
130 END 


以 上 是 一 次 求 出 一 个 小 梯形 面积 ， 几 何 意义 清楚 ， 易 于 理解。 也 可 以 先 找 出 n ВН 


面积 的 代数 和 的 公式 ， 然 后 据 此 编程 序 。 
Л.Т УЯ т EF myzvzay т, НА Ох) 的 值 。 


| кош ss кф + о + Жар + ++ е + Жл А) 


= [n + л + hr =R) +] = Аъ 2G + B+ ЕЛ АЈ 
如 时 f(z) = SIN(X) W: 

= smr = sin(a), fi = sisina HA), fa = зіва, = sin(a + 24), 

下 
据 此 可 编写 程序 : 


”10 INPUT “A, B, №”; A, B, N 


sinz, = sin(a + nh) = sinb 
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20 H= (B—A) AN 
30 FD=SIN(A) 


40 S=FO 

50 FOR 1=1 TON 

60 F=SIN (A+I xH) 
70 S=S+2xF 

8 NEXTI 


90 S= (S—SIN (B); x H/2 
100 PRINT “S=”; S 
10 END 


13.3.3 33 ж 


在 小 又 [a,b] БШ а лсо КЕНИН yG) , Жн ус G) НАЕ АЕО 取 
的 中 点 e.o ШИЕ HTO) 通过 点 可 求 出 f(e) , 在 几 位 上 就 是 作 一 条 = 一 “的 


直线 与 了 zx) 交 于 了 Ce) 。 通过 fa) ,Te ,TCD 三 点 可 以 作出 唯一 的 一 条 抛物 线 . 见 图 13. 4. (а) 
由 数学 知识 可 知 ， 在 [ea] 区 同 的 Л (2) 可 以 由 下 式 表 示 : 


fm кы 


ба) 


a) (b) с) 
图 13. 4 
(2002—60), (хт — а\ба — е) (к —а)(= —b) , ‚ 
0 = ар) + (ыу O t G р ву A 


MERTA, z= a it, Ala) = }(а),„а Б.О) = РО) ИН, ус) = убо). 
[зш 可 以 近似 化 用 [ai ҖЕ. pimwageajaktha, 有。 


| 
Гледа = Ауу + Аро) SO 


h— a 
其 中 一 “也 
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还 可 以 将 a, 妇 分 成 两 个 小 区 间 Га, е] Г [ed] 。 对 每 个 小 区 间 分 别 各 以 一 条 抛物 线 代 
ФАИ fgz) ， 分 别 计算 出 两 个 入 的 曲线 梯形 1 和 工 的 面积 〈 图 13. 4 \b)) ， 然 后 把 它们 要 
加 。 


"s= [уде + = FALO + AfG + D) + fta + 200 


十 Ша 十 2) — Afa + 38) 一 TD) 


а + FO) + 4[f(a + D) + f(a — зр + 2f(a + 20) 


р» _- 。 内 上 式 可 以 看 到 一 条 规律 ， 有 (ce + sh , 5 n 为 奇数 对 , 它 前 面 的 系数 是 4， 
即 : 47а + ®) + }(а 十 34)],n 为 偶数 时 ， 系数 为 2， 即 2f(e + 28) 。 见 图 13. 4(b) 下 部 括号 
失 的 数字 {表示 系数 )。 

为 使 求 定 积分 更 准确 ， 再 分 小 区 间 , 即 分 为 4 个 小 区 间 : (a,a —– 20), (а + 28,0 十 4А), (а 
十 dka T 64) ,ta 十 的 ,入 。4 个 区 疗 的 中 点 分 别 为 8 十 各 a 一 Sha + She + Th = $ — 


ж 。 见 医 13.4 (o). 


ARRA: 四 个 小 曲线 梯形 之 和 ; 
s~ EO -afet + f(a + 28)] 


+ [Жа + 28) + Af(a + 3h) + Ма + 45) ] 
+ Оба + dh) + 47 Са + 50) + Са + 61 Са + 68) + Аа + Th) + fF(b)] 


= HTO + £G) 4 40а + h) + fla — ЗА) — fia + БЮ 十 f(a 二 74)] 


+ 2[füa + 20) + fla + АЮ + уба + 600) 
如 果 分 成 n 个 小 区 间 ， 则 ， 


эзе уа) + SO) + Аа ++ h) а + 38) +++ + [а + (Фа — 1) 5 DJ 
+2[/а +2Ю + f(a + 30) T += — f(a + Ол 2) + 2)]) 


【 例 13.5] 用 辛 普 生 法 求 Е 


10 INPUT “A, B. N=” A.B. N 
20 H= (В-А) / (24N) 
30 5=0 
40 FA=SIN (А) 
50 FB=SIN (B) 
60 Х=А+Н 
70 F2=0 
80 F4=SIN (X) 
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90 
100 
10 
120 
130 
140 
150 
160 
170 


FOR I=] TON 一 1 
х=х+н 
FZ=FZ+S$IN (X) 
X=X--H 
FI 一 F4 一 SIN (X) 
NEXT I 
S=F/3+ (FA--FB+4*F44-7Z=F2) 
PRINT “S=”, S 
END 


以 下 是 三 次 运行 的 情况 ， 


Ф 


е 


@ 


WE, ООЙ = (B A/Q aN), 4N = 4 ВЕ, H = 


А, В, N=0. 1, 107 

S= .4596978 

А, B, М=0, 1, 100, 
S= ‚4596975 

A. B, М=0, 1, 1000/7 
S= ‚4596993 


B—A 
8 


Р? RAPRA 2 的 那个 多 项 式 , Pd 代表 将 要 乘 以 4 的 多 项 式 。F2 的 第 一 项 应 是 Fn 
一 20), 因此 ,可 以 将 好 的 初 值 定 为 0, 然后 在 第 一 次 循环 中 加 fta 十 2) 。#4 的 第 一 项 是 fa 
0, №, 可 将 ма BABES SIN(X) ,此 时 ,已 被 妈 值 为 2 + k. ка 的 初 秆 为 f(a 十 


h). 


ОКТ, HFPA X = X + 8” 语句 后 , X 的 值 等 于 A+ 258 F ， 执 行 第 
IAA = X+ н Эл, хта Зк, 0413.1, 


表 131 
执行 第 -个 执行 第 二 个 
БИ ЕЧ “X=X—H”Ja БЕЛА “xX=x+H"Ji F4 的 值 

х ВИА х 

ñ š we Ah a 十 3n fa-Ha) 十 ta 十 3h) 

B ah EaD- aih аһ афа ба-а ыба 5h) 
и 14а га еа ар w. Fathy FEFE ath 

Ахав) 十 fa 二) 


在 三 种 求 定 积分 值 的 方法 中 ,矩形 法 的 误差 较 大 ,梯形 法 次 之 . 辛 普 生 法 最 好 。 我 们 现在 介 
绍 的 是 定 步 长 { 区 间 ) 的 谤 普 生 法 ,还 有 变 步 长 的 辛 普 生 法 (可 以 根据 需要 不 断 分 小 区 间 直 到 注 
TRAER ETSAB. 


813.4 


一 元 方程 的 根 有 些 可 以 通过 解析 弃 求 得 ,如 
根 z 一 ! 。 但 是 在 洗 多 情况 下 无 法 分 解 , 也 就 是 说 无 法 用 解析 法 求 z 的 举 确 值 。 可 以 时 近似 方 
法 求 并 的 近似 宣 。 下 面 介绍 儿科 常用 的 方法 。 
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®— 2z + 1= 0 


求 一 元 方程 的 近似 根 


TIR (т 10 0, 


13.4.1 迭代 法 


其 基本 方法 如 下 ， 
Оу) GRR e UAF: = убт) 形式 。 


2)? 大 致 估计 出 一 个 根 z 的 范围 ,给 > 定 一 个 志 信 ze ,把 它 代 入 gtx) 中 , 求 由 7 的 第 一 次 近 


ШҮ а. 

СЭВ а A gla) UP gtr) Жз; Н Со) ЖКН аз, убт RH а, у 
НН BJ 3848463 FKU ЗИН А. ez) , 求 出 > 的 下 - 个 近似 值 , 坦 到 总 次 求 出 
的 x 值 很 接近 , 屠 |а, 一 i 所 。 为 止 。* 是 一 个 给 定 的 很 小 的 数 。 这 时 = 就 是 所 求 的 近似 
值 。 

[@J13. в Ж ЦЕ ГЕНИН 

у == фе = 0 
ЖАЙ = gtx) AF ВАВА, 


ч 
I 
| 

` 


ЛЕ 0 WE TAB. W = = 0. 


程序 如 下 ， 
10 DEF FNA (X) 一 一 EXP (X) 
20 к0=0 


30 ХІ=ЕМА (X0) 
40 WHILE ABS (Х1—Х0) >. 00001 


5t XD 一 X1 
60 X1=FNA (X0) 
70 WEND 

80 РАМТ” x=”; XI 
90 ЕМО 

RUN 

x=—. 5671408 


Жз ЕДЕН Ip Aka. AEREA. AURI ЖЕ НК К, FRE 
最 多 循环 次 数 ， 例 如 循环 БО Ruka IRS, У, Wik H ОЕ. 


13. 4. 2 HARZ 


RSO = 0 ZE ао БЕЙ —1 ЖАНЫШ. 

G) 选 一 个 接近 于 z (真实 根 》 的 近似 根 <1 ; 

《2) 通过 mm ЁШ О). АЛАТ ҺЕ х = т ЖЖ fy Рус). 

З) 这 fn) 作 FG) 的 切线 , т Т. 

《4) 通过 三 求 出 f(xs) 。 

《5) 再 过 jz2) fE yC) 的 切线 ， 交 + 上 轴 于 mm。 

《6) ФӘ а RH Оз), ЖЕЛШ Б. EAMG СК ЖН ИШ З РУЧА |e 
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— | <= ЖЕ, ЖЕНА ты 足够 接近 于 真实 的 根 。 
以 上 见 图 13. 5。 


从 图 中 几何 关系 可 以 看 出 : 
ао = 0. 
=p Ха) 
й атара) 
2, f@ 
BE nna- ры, 


这 就 是 牛顿 选 代 公式 , 即 从 根 的 前 一 个 近似 值 
可 以 推出 下 根 的 下 一 个 近似 值 。 
【 例 13.7】 用 牛顿 迭代 法 求 
z+e=0 
在 z 一 0 附近 的 一 个 实 根 。 
按 上 述 方 法 可 画 出 N-S 流程 图 。( 见 图 
13.6), 
今 : f(z) — z фе 913.5 
HOLSET 
思路 是 ;用 x 代表 x 的 第 一 次 近似 值 ,F1 代表 函数 /(т) 的 值 ,D1 代表 S aD 的 值 ,根据 


n= n — ӘР ARRE з, е ОНЯ N 代表 选 代 次 数 , 每 迁 代 一 次 打印 一 次 A， 


zl,z2。 然 后 将 新 求 出 的 z2 作为 下 一 次 选 式 的 初 值 z1 ,再 求 出 新 的 :2,…… ,这样 做 的 日 的 是 只 
用 两 个 变 基 z1,72 代 表 了 所 有 的 近似 值 z1,z2,7s,…z,。 用 迭代 方法 处 理 是 很 方便 的 .每 一 次 循环 、 
进行 一 次 选 代 ， зло 在 每 次 循环 中 都 得 到 新 的 值 。 

程序 如 下 ， 

10 DEFFNA (X) =X+EXP (X) 

20 DEF ЕМВ (X) 一 1 十 EXP (X) 

30 INPUT X1 

40 PRINT ” n”,” x1”,” х2” 


о 


50 М=1 

80 Р1=ЕМА (Х1) 
70 D1==FNB (X1) 
80 X2=X1—F1/D1 


90 PRINT N, X:, X2 
100 xi=x2 


120 ЗЕ ABS (X2—X1) >. 0000001 СОТО 60 
130 ЕМО 

RUN 

ку 图 13. 6 
n x1 х2 

1 1 Ü 


发 现 程序 只 执行 了 一 次 循环 就 结束 了 。 原 因 是 在 100 语句 赋值 之 后 , z 等 于 z, BE 120 
语句 的 ABS(z22 一 z1) 的 值 为 零 * 这 个 错误 不 易 被 发 现 ,为 了 解决 这 个 问题 ,在 开始 输入 z 的 第 
一 个 近似 值 不 是 给 :1 而 是 给 x:, 然 后 执行 赋值 语句 “z1 一 *2”, 再 根据 zl1 求 出 新 的 z2, 此 时 z 和 
z 一 般 是 不 相等 的 。 程 序 改 为 ， 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


DEF FNA (X) =X+EXP (X) 
DEF FNB (X) =1+EXP (X) 
INPUT X2 
PRINT ”n”,”x1”.”x2” 
N=1 
X1=X2 
Fl=FNB (X1) 
D1=FNB (X1) 
X2—X1-—F1/D1 
PRINT N, ХІ, X2 
N=N+1 
IF ABS (X2—X1) >. 0000001 СОТО 60 
END 
х1 2 
2 0 
° 一 5 
一 5 一 566311 
一 .566311 ~. 5671431 
g- 5674131 —. 5671433 
一 5671433 —.5671433 


可 知 结果 是 正确 的 。 读 者 应 学 习 和 掌握 在 调试 程序 时 如 何 发 现 和 修正 错误 。 


13.4.3 ЖЖ 


车 yG) 为 单调 函数 (单调 增 或 单调 减 ), H. (т) 和 a) 异 号 , 则 在 与 x 之 间 必 有 根 。 
见 图 13. 7, 弦 蕉 法 的 基本 方法 是 : 联接 f(z) 和 f(z2) 二 点 , 此 直线 ( 即 弦 ) 交 = 轴 于 mm ， 测 
试 f(zo) 与 РС) 是 否 同 符号 ,如果 相同 《如 图 所 示 那 样 )， 则 表示 Goro 之 间 无 根 ， 根 必 在 
(зооло) 之 间 。 此 时 将 zo 作为 新 的 mn (图 中 以 z 表示)， 再 将 了 (x1 与 f(z2) 联结 ， 联 线 交 z 轴 
于 zo， 再 判断 Ла) HSO) 是 否 同 导 …。 每 次 缩小 区 间 。 若 第 一 次 Со) 与 了 (x1) 异 号 ， 则 
说 明 (zzo) 间 有 根 , 此 时 将 zo 作为 新 的 z。( 即 把 区 间 Gord SHD, 接着 在 Сао) 中 用 上 法 
不 断 缩小 区 间 。 当 区 间 不 断 缩小 ， 直 到 |z, 一 zz | е ҖЕ G 为 一 个 指定 的 很 小 的 数 )。 此 时 


将 于 去 们 作为 近似 根 值 。 


Ж za 的 值 的 公式 为 ， 
„та _ 
TO Fe) — FG O 
这 可 以 区 13. т = 85515 КАФЕ 
出 以 上 关系 。 
【 例 13. 81 不 东 截 法 求 下 面 方程 的 枢 
Ја) 一 了 十 所 一 位 
і сли хр. (图 13. 


РС) 


8. 

还 有 两 个 问题 要 考虑 : G) "АЙЫҢАН r ЖП 
аз ПЕЕ, 看 了 (zx,) A yG) EER, WME W 
Croz) HAR, PUERMA ror, ER f(a) 
Mao 异 号 为 止 。(2; ЖЫ EEEE KAR fol fa 
到 结果 、 设 定 最 启 循 环 次 数 , JH N 累计 已 循环 次 
B NARRER. 因 北 . 程序 在 流程 
图 的 基础 上 又 有 了 发 展 ， 请 注意 分 析 。 

10 DEF ЕМЕ (X) =Х+ЕХР (X) 

20 INPUT “xV, x2=”, X1, X2 

30 IFSGN (FNF(X1)) =SGN (ЕМЕ (Х2:) СОТО 20 

35 N=ü 

40 Fl=:FNF(X1), F2=FNF(X2;) 

50 Хй<Х2— (X2—Xi5 / (F2—F15 +F! 

50 FO=TFNF (XG) 

BO IFSGN (F0) <>SGN (ЕІ) THEN Х2-=Х0 

ELSE Х1= xÇ 

85 N=N+1 

87 PRINT N, ХІ, X2 

90 IF ABS (FD) 2>0. 000000] AND N<50 СОТО 40 

110 IF N<50 THEN PRINT “х= "; ХО ELSE PRINT “jË 

ч 50 次 后 仍 未 得 到 结果 ” 


图 13. 7 


120 END 

RUN 

х1, x2= —1, Ox 图 13 8 
I =. 5126998 0 
2 —. 5721814 0 
3 —, 5877032 o 
4 —. 5672056 0 
5 —- 5671503 в 
6 =. 5671442 0 
7 —. 5671435 Й 
& —. 5671433 о 

x=—. 5671433 
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13.4.4 二 分 法 


二 分 法 的 基本 方法 为 ， 设 fr) 在 (zz) 区 间 内 为 单调 函数 ,车 PO) 与 了 (zy) 异 号 ， 则 

在 (rz) 下 有 一 实 根 。 见 图 13，9。 
M 找 Go,zo 的 中 点 。 

(2) 判断 00) 与 Ох) 是 否 同 号 ,如同 号 
(如 图 13. 9 所 示 )， 则 根 必 在 Caza 范围 内 , 将 
n HERE z MEE Goz) 区 间 。 

(D E ffzo 5 Тш) RS, 见 会 去 (zaza) 区 
间 ， 将 二 作为 新 的 mm 。 

(4) 对 新 的 Ga,z) ， 再 用 二 分 法 求 z = 


AT, яш ED, EI |z, 一声 | 足够 小 为 
ПЯ 


这 方法 的 思路 与 纺 截 法 有 些 相似 ， 只 是 不 作 
Т, ЖКБ. 
【 例 13.9】 用 二 分 法 求 = 十 et 二 0 的 


ж. 
有 了 蓄 截 法 的 基础 ， 可 以 直接 写 出 程序 。 
10 DEF ЕМЕ (X) =X+EXP (x) 

20 INPUT “х1, x2=", X|, Х? 

30 IFSGN (ЕМЕ (X1)) —SGN (FNF (X2)) GOTO 20 图 13 8 
40 N=0 

50 Fl=FNF (X:); F2=FNF (X2) 

60 X0= (X1+X2) /2 

70 FO=FNF (х0) 

80 IF SGN (FO) 二 >SGN (БІ) THEN X2=X0; F2=F0 ELSE X1=X0., Fl=F0 
90 N=N--` 

100 PRINT N, XI, X2 . 

119 IF APS (F0) >>. 0000001 AND N<100 СОТО 50 

120 PRINT X=”; X0 


180 END 
RUN 

xi, x2=? —1, DZ 
x=—. 5671433 N=23 


以 上 介绍 了 求 一 元 方程 的 四 种 不 同方 法 . 如 染 函 数 变 了 ,不 是 f(x) — z + e ,而 是 其 它 
KAHER, KERE A ELH APERT. 
应 该 说 骨 ， 这 几 种 方法 都 是 近似 方法 、 求 出 的 并 不 是 根 的 淮 确 值 ， 但 它 能 求 出 解析 方法 
所 不 能 解 的 方程 的 根 。 还 有 其 它 求 根 的 方法 ， 有 兴趣 的 读者 可 以 参阅 有 关 计 算 方法 的 书 。 
ЖЭПЕ ЖЕ. 如 果 f(z) 在 Cow 区 间 不 是 单调 函数 而 只 是 连续 请 数 ， 那么 如 果 F(z) 与 
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К КӨ, ВВП ik УИ, НН Ж, Я x 36. +W лг, B 
К АЫ ао Со) H fer) 异世， 然后 用 上 述 方法 找到 第 一 个 根 ， 然 后 再 从 沪 个 恨 
F (确切 涪 处 这 个 很 如 个 小 的 数 开始 )， 作 为 新 的 不断 如 全 ， 直 到 找到 一 个 新 的 7: ， 
JG) 与 天 x2) 异 号 ， 此 时 Gorm 又 应 有 一 个 根 ， 盈 用土 述 方法 求 。 


图 13，10 
Е 13. 10 中 表示 从 和 开始 , 每 次 加 一 个 Жж, BEDT =Z ле. С) F fo) 
后 找 оп. г) 区 间 的 根 。 找 到 第 -个 根 后 , А а РЕВА ЛГ Ас, А r, Д РС) 与 产 
#5. б.з.) HER. 请 读者 户 己 完成 编程 序 工作 。 


$13.5 排序 方法 


在 第 六 剖 中 已 介绍 过 用 比较 交接 法 和 选择 法 排序 . 排序 的 方法 很 多 ， 不 同 的 排序 方法 效 
率 很 不 一 样 。 泸 们 在 这 里 再 介绍 三 种 闺 序 方法 。 


13.5.1 &Ж Ж 


起 泡 法 的 基本 思 小 是 : 将 相 令 两 个 数 A (1) 和 A (2) 比较 , 按 要 求 将 这 两 数 排 好 主 ， 二 
将 A 02) SA (3 比较, … 依 此 处 理 , 站 到 将 最 后 两 个 数 比 较 并 处 理 完毕 。 这 时 最 大 的 数 已 
换 到 最 后 一 个 汶 了 。 这 是 第 … 轮 的 比 绞 和 和 处理。 每 进行 一 轮 ， 把 剩 下 的 数 中 最 大 的 一 个 移 全 
最 后 位 置 。 共 进行 若干 输 。 下 面 结 台 个 具体 例子 来 说 明 。 ` 

【 例 13.10】 有 6 个 数 ， 按 由 小 到 大 须 序 非 列 之 。 设 6 PRAE 13. 11 (а) Вт. 

” 第 一 次 先 将 首 两 个 数 10 和 8 比较 ， 按 题 总 要 求 小 的 在 前 ， 因 此 将 3 和 10 两 数 的 位 党 对 
换 ОЛ з), 第 二 次 将 第 二 、 王 个 数 比 较 , ЕНТО Kr ( 见 图 (о), ЭСК, 
将 第 三 、 四 个 狂 10 和 了 交换 ( 见 图 (ay, 第 四 次 将 第 四 、 五 个 数 10 和 3 2 CM] се). 
第 五 次 将 第 五 . 六 个 数 10 和 1 交换 ( 凡 图 (f))。 可 以 看 到 , 经 过 这 一 轮 ( 共 5 K) ШИВ. 
最 大 的 数 10 已 “ 沉 底 "， 而 最 小 的 数 1 已“ 上浮 ”一 个 位 置 . 解决 了 最 大 的 数 后 ， 还 要 处 理 
ТИ 5 个 数 。 见 医 13. 12 (a), 现在 要 对 剩 下 的 5 个 数 排序 ， 按 上 述 方法 再 进行 第 - 轮 的 化 
较 交 换 、 见 图 13，12。 第 二 轮 中 共 比 较 4 次 。 经 4 次 比较 后 5 个 数 中 最 大 的 数 8 Б “ТШЕ”. 
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图 13.11 
最 小 的 数 1 又 “上 浮 ” 一 个 位 署 。 至 今 为 止 ， 已 将 6 个 教 让 最 大 两 个 数 放 到 最 后 丙 个 位 置 上 
了 ， 还 有 4 个 数 要 排 虑 。 可 以 看 出 ,还 要 进行 三 轮 比较 ， 每 一 轮 把 最 大 数 “ 沉 底 ”。 如 有 有 n 
个 数 ， 要 进行 tn 一 1) 轮 比较 交换 。 每 一 轮 书 要 比较 多 少 次 呢 ? ЈИ, 第 ; 纶 中 比 5 次 ， 
Жоба. ТЮШ. 第 i 轮 要 出 0D Ж. 
可 可 出 N 一 S$ 图 (图 13..13 (a))。 


图 13. 12 
EN- 个 数 中 最 大 的 三 
RA AN- Ж 
АШ MAJHI e 
‹а) ib) 
图 13. 3 


第 一 轮 将 6 一 1 十 1 一 6 个 数 中 最 大 的 数 放权 A 6) 位 置 上 ,第 二 轮 近 5 个 数 中 最 大 的 数 放 到 A 
283 


(5)，…。 对 图 13. 13 (a) 细 化 。 得 到 图 13. 13 (b)。 对 (N 一 I 十 1) 个 数 进 行 一 轮 比较 交换 , 需 
要 比较 N-D K. 
据 此 编 出 程序 ， 
10 INPUT “N=”, N 
20 DIMA (N) 
30 FOR I=I TO N 


40 


INPUT А (D 


50 NEXT 1 


60 FOR 1 一 1 TO N 一 1 


70 

80 

90 

100 
110 
120 
130 
140 
150 
180 


T=N—1 
FOR J=] TO T 


IFA (J) >A (J+1) THEN C=A (J); А (D =A (1+2). A G+) =C 


NEXT J 
NEXT 1 


PRINT , PRINT “The sorted sequence; ” 


FOR 1=1ТОМ 

PRINT А (0); 
NEXT 1; PRINT 
END 


这 种 方法 , 大 数 下 沉 ， 小 数 逐 渐 “ 上 升 ”, 如 同 水 中 气泡 上 升 , 故 称 “ 起 泡 法 排序 ”(bubble 
sort)。 这 种 方法 交换 的 次 数 比 较 多 , 效率 并 不 高 , 尤其 是 当 原始 数列 的 顺序 与 题目 要 求 的 顺序 
恰恰 相反 时 〈 如 原始 数列 是 递减 的 10，8，6，4，2，0) ， 每 比较 一 次 都 要 交换 数据 。 读 者 


13.5.2 插入 法 排序 


可 自己 统计 一 下 比较 多 少 次 ,交换 多 少 次 ? 可 以 在 80 行 中 最 后 加 一 个 语句 “N=N 十 1”, 统 
计 交 换 次 数 。 


基本 思路 是 ， 先 将 第 一 个 教 作为 数列 中 的 数 ， 然 后 将 第 二 个 数 插入 到 这 个 数列 中 ， 使 之 
按 要 求 排列 ， 以 后 一 个 一 个 数 插入 到 已 排序 的 数列 中 ， 直 到 及 有 数 都 插入 完 为 止 。 


【 例 13. 11] 


初始 数列 10) 


i=1 


Jr РЕК pj ЕТА. Я 
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[8 


G 


8 


103 


8 


用 插入 法 对 n 个 数 排序 。 今 以 ? 个 数 为 例 ， 其 排序 过 程 如 图 13. 14 所 示 。 


5 7 3 1 

5 7 3 1 

10 T 3 1 

8 10 3 1 

7 8 10 1 

5 7 8 103 
图 13. 14 


fF 始 时 只 将 第 一 个 数 10 放 在 数列 中 。 然 后 进行 第 1 次 插 


入 ， 将 第 二 个 数 8 插入 ， 由 于 8<10, В ЛЕ 10 之 前 ， 此 时 数列 中 已 有 两 个 数 了 。 以 后 
每 次 插入 一 个 数 ， 其 插 人 5 次 即 完成 。 可 以 用 图 13. 15 ӘН ЯНЕ, 
如何 实现 插入 ,可 以 将 准备 插入 的 数 放 在 变量 中 ， 
然后 将 < 与 数列 中 最 后 一 个 数 比较 ,如 果 # 大 , ШШ 
入 到 最后, 如 果 z 小 、 划 * 与 最 后 第 一 个 数 比较 , 如 
此 依次 从 后 到 前 逐个 比较 ,直到 z>> л а 
HAA 0) 之 后 。 对 图 13. 15 搬入 操作 细 化 , 如 图 
13. 16, 
13. 16 中 的 “1—1” ЕШ ЯКИ РШ 
АУ, 要 从 原 有 数列 中 [1, 31 Ж 1 个 位 置 到 第 了 个 за 
位 置 中 找到 一 个 位 置 将 x 插入 。 只 要 x<A СО 就 要 
将 A Q) 后 移 一 个 位 置 (到 A (7-17), 然后 使 ] 一 IT 一 1， 目的 是 使 x 与 前 一 个 数 比较 。 当 JI 一 0 
就 表示 已 和 最 前 再 的 第 一 个 数 进 行 过 比较 ， 不 应 再 进行 比较 了 。 根 据 流 各 图 写 出 奸 序 ， 

10 INPUT “n=”, N 

20 DIMA (N) 

30 FOR I=1TON; INPUT А (1); NEXT I 

40 FORI=2TON 


将 AQ) EARCH RR p| p 


ж Ас EDERKEN 


DI R 
50 WUET>OANDX<AD [| 
70 A СЪ) =АФ 
зр wm 
ию ло+рех 
110 МЕХТІ 
120 FOR 1=1 ТО N; PRINT А (1), NEXT I; 图 13. 16 
PRINT 
130 PRINT 
140 END 
RUN 
n=5,” 
т в 
? 4 
? Г 
т 0 
?7 


0 1 4 6 8 


зма, АЖЕ ЕШР. 015 N 很 大 时 ， 比 较 和 移动 次 数 比 较 多 ， 效 率 比较 低 。 
13.5.3 希 尔 法 排序 


RED. L. Shell 握 高 的 一 种 高 效率 的 排序 方法 〈 Sheti's method )， 是 对 播 人 排序 法 的 改进 
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和 和 发展。 插入 排序 算法 简明 ， 实现 容易 ， 当 N 小 时 效 这 出 较 户 ， 但 当 大 时 效率 较 低 .和希 尔 
法 将 一 个 数列 分 为 着 干 个 子 数列 , 每 个 子 数 列 只 包括 为 数 较 少 的 数 , 用 插入 法 对 子 数列 排序 ， 
这 时 的 效率 是 高 的 。Shell 方法 是 这 样 分 解 一 个 数列 为 若干 个 子 数列 的 : 先 定 一 个 增 量 4，、 从 
3 -个 数 开始 , ЖАШИЛ a, 的 各 个 数 年 为 - -个 子 数 列 ， 分 中 对 每 一 个 子 数列 排序 。 然 后 再 取 
“Е а, td<d.)， 再 分 子 数 列 ， 再 分 别 排序 。 再 取 ds (dy<<da)，…… 姑 此 反复 ， 直 到 d 一 
! 为 止 ， 见 图 13，17， 

жж 9 Z оа 5 1 b 5 65 4 2 


9 
3—4 
第 жеж 1 
上 
d—=3 
BORAR ' 
1 
4=2 
жён ' 0 2 3 4 5 7 6 3 8 
da=] Н 1 D 2 3 + 5 7 6 9 8 ‘第 一 组 ) 
RARR р 1 2 4 5 Š 7 8 9 
图 13 17 


开始 时 取 а ERK, 每 组 中 数 比较 少 , 排序 已 数据 移动 少 , 效率 高 , 而 且 由 于 相隔 为 4 的 
数组 成 一 组 ， 因 此 小 的 数 如 果 在 后 由 以 跳 帕 式 向 前 交换 位 置 ， 而 不 是 一 个 位 置 一 个 位 置地 向 
前 移 , 新 以 排序 速度 快 。 以 后 d 城 小 , 但 由 于 名 组 中 的 数 大 多 数 已 有 序 , 因此 , 在 实现 插入 时 
的 比较 和 移动 的 次 数 就 比较 少 了 。Shell 排序 法 在 整个 非 序 过 程 中 保持 高 的 效率 (不 论 N 多 大 ， 
也 不 论 原始 数据 的 排列 状况 如 仔 》。 

Shell 提出 а= INT (N/2). 妈 第 一 次 墙 量 大 致 为 数列 中 数 的 个 数 的 1⁄2, 也 就 是 说 , 每 个 
子 数列 中 只 有 2 一 3 个 数 ，d 一 INT (d4,/2), di 一 INT (4/2), сөз 

СЯ 13.12] 用 希 尔 法 对 N 个 数 排序 

先 画 出 NS 图 《〈 蜗 13. 18)。 可 以 看 出 : 当 D 一 1 时 .和 插入 排序 相同 。 

10 READ Ñ 

20 DIM AtN) 

30 FOR 1==] ТО М; READ А (D; NEXT 

40 D=INT (Х/2) 
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5G WHILE D>=1 


80 FoR I-D TON STEP D 
тс Х=А (l); J=I—D 

ве WHILE 37>0 AND X<A G 

эс А (1—0) =A (J); J!=J—D 

160 IF J< =0 THEN K=], J=0 

110 WEND 

120 ТЕ I<=0 THEN 1=К 

но лото к 
140 NEXT [ 

50 omr oD 2 
СКЕ 


170 КЕМИНЕ 
180 FOR I=] ТО N: PRINT A {);, NEXT 1; 


D-—INTID-2) 


PRINT 
190 DATA 10, 9, 7. B, 5, 1, 0, 6, 5, 4, 2 要 13，18 
200 END 
RUN 
C€ I 2 3 4 5 6 7 8 9 


在 写 程序 时 还 有 一 个 问题 要 处 理 ; 由于 每 -- 组 中 各 个 数 的 相隔 位 置 为 D, 在 执行 ?0 行 的 
“J 一 I 一 D" 语句 后 的 值 可 能 会 小 于 零 ,如果 无 100 РАЈ, 就 会 在 80 IË ITET A iE J> 
0 AND X<A 0D” 时 由 十 A С 的 下 标 为 负 值 碟 出 错 。 我 们 外 了 100 行 , 当 J<0 时 , 使 I= 
0 从 压 不 全 出 现 “ 下 标 为 负 ” 的 错误 ,但 是 130 语句 中 ，A (LD 的 1 应 是 原来 的 丁 值 而 不 
EF. AIE 1002р эң J< 时 先 将 本 的 值 赋 给 -个 临时 变 基 K 以 保留 的 珠 值 , 然后 才 使 
3J=0, 在 120 生 中 吾 将 K 的 值 赋 还 给 J， 这 样 执行 130 行 时 才 正 确 。 

我 们 已 介绍 了 几 种 不 同 的 排序 方法 。 在 “数据 结构 ” 识 程 中 还 要 对 每 一 种 排 享 方法 作 详 
尽 的 洲 较 分 析 。 

排序 是 数据 处 理 中 一 项 重要 艺 操 作 , 例如 要 大 全 站 学 生 流 成 绩 排序 、 近 职工 工资 排序 等 ， 
不 仅 要 对 若干 数值 排序 还 要 对 若干 个 记录 按 其 关键 字 排 序 等 ， 因 此 ， 掌 握 排序 方法 是 十 分 

我 们 只 是 从 算法 设计 的 角度 作 介绍 ， 以 必 助 谈 者 学 会 思考 后 题 和 进行 程序 设 证。 


$13.6 4 Жж Я 


р Ин П Нр, ЛОКА ЕРО ЯТ. ж, Fl, ЖЫШМӨЙ, Ш 
HEF. EZRES. РАЈНИ RAER BASIC 有 МАТ GER) 语 问 “MS BASIC 没 
有 ) 。 为 使 读者 有 一 初步 了 解 ， 下 面 列 出 这 些 矩 阵 语 知 ， 

МАТ A=ZER ШЖ ЖА 全 部 元 素 为 堆 值 

MAT A=CON 各 元 素 均 为 1 „ 

МАТ A=IDN А 为 单位 矩阵 《〈 主 戏 角 线 元 素 的 值 为 ] ， 其 它 元 素 为 零 ) 
MAT С=А+В арш 


MAT C=A—B 矩阵 减 

MAT C=AxC ЖЖ 

MAT B=INV (A) B 3 3ERE3 À ШЖ >й 

МАТ B=TRN (А) ВЕ АШ НВ 

MAT READ A ERE 

MAT INPUT A ЖШ А. 

MAT PRINTA ERRE 

MAT A=B ERRA 
如 果 所 用 BASIC RARER, WJ S63EH483F3F 33 E Из. 
[413.13] 矩阵 相 乘 。C 一 A*B 
两 个 矩阵 A 和 B 相 乘 的 前 提 是 , А. 的 殉 数 必须 等 于 了 的 行 数 。 如果 A ЕРЕ nxm. ДВ 

ХЕБ хр, Су nXp, 


矩阵 中 各 元 素 的 值 为 ， Cr 一 DAXB 

1 4 7 10 
25 8 | 
3 


Си = an X bi 十 aa Xba + au X bs 
Cu = ар X bis аз X ba + an X bs: 
Cis = ar X br + ar X bx + an X bas 
Cu = ar X bu + a: X bu X ar X Ds 


Шс уха ВЕ. 


Сы = aa X bu + ax X ba 十 Ba X bx 

即 C, ЖАНЕ А ВЕН i 425 B EE НЫ k 列 各 元 素 相 应 的 霖 积 之 和 ,. 例如 С 的 值 
É A ERE 1 ITE BERR 3 列 各 元 素 相应 乘积 之 和 。 

据 此 可 编写 程序 ， 

10 DM A(2,3), B(3,4), C(2.4) 

20 FOR 1—1 TO 2: FOR J=1 TO 3, READ A (1, 1), NEXT J, NEXT J 

30 FOR 1—1 TO 3: FOR J=] ТО 4, READ В (1, J); NEXT J, NEXT 1 

40 FOR i=! TO 2 


55 FOR K=1 ТО 4 

65 са, K) =0 

т) FOR 1=1 TO 3 

80 C (I. K) =C (I, K) +A G, D +B (J, K) 
90 МЕХТ Ј 

100 МЕХТ К 

110 МЕХТІ 


120 PRINT matrix с," 
130 FOR I=1 TO 2 
140 FOR K=1 TO 4 
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150 PRINT С а, K); 

160 NEXT K 

170 PRINT 

180 NEXTI 

190 DATA 1, 2, 3, 4, 5, 6 

200 DATA 1, 4, 7, 10, 2, 5, 8, 11. 3, 6, 9, 12 
210 END 


RUN 
matrix с: 

м 2 вю в 

32 т 122 167 

读者 可 仿 此 用 德 环 来 实现 各 种 矩阵 运算 ， 例 如 从 矩阵 中 找 出 最 大 元 案 ， 求 主 对 角 线 元 案 
之 和 ， 求 矩阵 中 各 元 素 之 和 等 。 


$13.7 计算 机 模拟 


用 计算 机 模仿 实物 系统 进行 测试 , 从 测试 的 结果 获得 期 望 的 资料 , 称 为 计算 机 模拟 Com- 
puter Simulation》， 又 称 仿真 。 计 算 机 模拟 旦 计算 机 的 -项 重要 的 应 用 ,几乎 各 种 实况 都 可 以 
用 计算 机 进行 模拟 。 所 谓 “ 实 况 ”, 指 的 是 一 切 真实 的 情况 , 如 车 间 的 流水 作业 、 车 辆 的 调度 、 
小 学 生 的 游戏 、 人 造 卫 星 的 飞行 状况 等 。 一 个 实况 往往 是 很 复杂 的 ， 奉 涉 到 很 多 因素 ， 常 对 
它 作 一 定 的 简化 ， 用 一 个 比较 简单 的 模型 来 代替 它 。 例 如 炮弹 的 平 抛 轨迹 可 以 用 抛物 线 作为 
模型 表 米 近似 模拟 它 (忽略 空气 阻力 )。 

根据 模拟 对 象 的 不 同 ， 可 以 分 为 ，(1) 确定 性 模拟 ; О) 机 率 性 模拟 两 大 类 ， 


13.7.1 确定 性 模拟 


所 谓 “ 确 定性 模拟 ”(Deterministic Mode)， 是 指 被 模拟 对 象 的 模型 中 ， 各 参数 都 是 确定 的 
值 ， 也 就 是 说 ， 实 况 是 一 个 完全 确定 的 过 程 。 例 如 炮弹 平 射 ， 当 高 度 、 初速 已 知 时 ， 炮弹 的 
运动 就 完全 确定 了 。 用 计算 机 模拟 这 个 过 程 ， 就 是 确定 性 模拟 。 

【 例 1з. м] 四 飞机 在 坐标 原点 〈0，0) B a MA A Va = 100 米 / 秒 的 速度 向 右 改 
去 。 在 同一 坐标 系统 的 B 点 (4000 Ж, 10000 米 ) 有 乙 机 放出 导弹 ， 该 导弹 能 自动 校正 方向 
正 对 甲 飞 机 (图 13.19. 假设 导弹 飞行 速度 为 Ya 一 300 米 / 秒 , 模拟 甲 飞 机 禄 导弹 的 轨迹 , Ж 
出 几 秒 钟 后 导弹 击 中 甲 机 ， 当 导弹 距离 飞机 50 米 以 内 ， 就 认为 “ 击 中 ”。 


我 们 用 模拟 的 方法 处 理 这 个 问题 。 
设 甲 飞机 位 置 为 Aon) ,导弹 为 BCze,ga)。 开 始 时 4 在 0 点 -导弹 方向 为 4 方向 导弹 速 
度 可 以 分 解 为 沿 z 方向 的 Fs Т о 方向 的 Fe ， 由 直角 三 角形 关系 可 知 ， 
ВА? = g + (и > n)’, ВА — „У? + G до)? 
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# ar bir. А 点 位 置 为 少 ， 
z = V, X dt V. 为 甲 飞机 速度 】 
n=0 (水 平 飞行 ? 

ВЕЛЕ В”, 


ж = + Va * М 
ж = n + Vae At 
ЖЕ 4 和 再 的 新 位 置 判 断 是 否 “ 击 中 ”如 “未 击 中 ”. 则 
再 计算 导弹 速度 新 的 方向 BA" (对 准 加, 见 图 中 虚线 ), 如 此 每 
隔 二 计算 一 次 。 即 模拟 在 不 同时 间 间 隔 时 А = Б 0948341 
置 。 
FU DX IRR dr = z, 一 实 昌 代表 4 与 5 的 距离 ,F5X Ж 
K Vor VBY 代表 Vs, DT ARR A a 为 负 表示 方向 向 左 ,Fw 为 
负 表示 向 下 .。 可 画 出 N-S 疼 (图 13. 20). 
10 INPUT “va, vb УА, УВ 
20 INPUT “х2, у=”, X2, Y2 ЖАМ, Vp. х,у DT 


y2” 
60 T=0 
70 XI—p VBS DX. L жүн 
8) T=0:X1=0:DX=X1-X2 Ууу Yy D* Va 


чо тето 
150 X1=VA zT: X2=X2+VBX x DT : Y2= 

Ү2+УВҮ # DT D=SQR(GX*DX +Y £ Y3 
160 DX=X1—X2 


90 D 一 SQR (X2 + X2 十 了 2 * ү?) т=т-рт 


0 D=SQR (DX + DX+Y2 + Y2) PR TOYU Y: 
i80 WEND 

190 -PRINT T, XI, ҮІ, X2, ү? 图 13.20 
200 ЕМО 

RUN 


va, vb 一 100, 300 
x2, y2= 4000. 10000 
Т?РД 

t x1 y: x2 y2 

35. 20004 3520. 004 о 3478. 356 11. 42461 
RUN 

vë, vb=100, 30067 
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хэ, у2= 4000. 10000 
d=). б^ 
t xl yi x2 yz 
35. 15001 3515.011 0 3469. 947 16.32815 
щие 一 0. ! 秒 , RR ARA: ЕЗ5. ОЮ “dR, Maj A AE (3520.004, 0). B 为 
(3478. 336, 11. 42461), 4 át 一 0.01 秒 时 ， 在 35. 15 秒 时 “ 击 中 ”， 此 时 A Ж (3515. 011, 0), 
卫 为 (3469. 847, 16. 32819)。 
АЛУ, AAMAR. WRA AK, 则 可 能 出 现 “六 击 中 ”情况 , Е ае = 0. 5 
秒 ， 每 隔 0. 5 秒 才 调整 一 次 导弹 的 方向 并 计算 48 的 距离 ,误差 较 大 。 读 省 不 妨 斌 一下。 如 采 
EER V oryn d RATRE, ЕН А" 情况、 读者 自己 可 用 不 同 数据 试 -下 
《例如 由 一 1 秒 )。 
这 个 售 子 说 眼 如 何 用 计算 机 模 专 在 不 同时 间 下 飞机 和 寻 弹 轨迹 的 实 沈 。 
【 例 13.153 ”假设 有 一 化 学 工厂 ,有 一 水 池 点 破 盐 水 100 升 , 每 升 含 盐 PE 今 以 每 
升 合 盐 2 壬 克 的 盐水 ， 每 分 向 注入 池 中 5 升 . 并 随时 将 注水 充分 拌 实 。 另 有 个 出 水 管 将 此 
均匀 的 盐水 每 分 种 放出 5 A СВЕ RA АПЕК ЛАР 100 fr). 求 注 放 开 始 后 , 竹中 令 盐 量 增 至 
150 千克 需要 多 少时 间 ? 
这 个 名 是 可 以 用 两 种 方法 求解 : 
D 用 一 阶 常 微分 方程 求解 
:一 注 放 开始 后 经 历 的 时 间 (单位 ， 分 ) 
о 一 池内 含 盐 量 〔〈 音 位: 千克 ) ,t+ 一 0 时 .8 二 100 
二 一 对 间 的 微分 增 重 
焉 一 在 生 时 和 间 内 总 盐 量 的 增值 
每 分 钟 注 入 的 盐 量 二 2X5 二 10 СРТ) 
每 分 钟 放出 的 执 量 一 5X]80 一 号 (于 克 ) 
在 下 这 段 时 间 内 汉中 增加 的 总 盐 屁 为 : 


40 — (0 — ош 95 
ЭЭА АСА DTE. 
МОКЕ riki, [Ж 〈1) 式 化 为 ， 
上 __ ш 人 
5 二 2300 一 20 
D ARH: 
Ima 一 200) —— z$ + te 
28. 


Q 一 200 = се—т 
以 初始 条 件 中 一 100, 一 0 代入 式 得 ; 
100 — 200 = се = < 
уус =— 100 
AQ = 200 一 100e- 页 
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如 &=150, 则 ! 一 一 20а) 二 13.9( 分 钟 ) 
H tot, AiR: 
&тф = 200 一 100 x 0 = 200 (FH) 


t— оо 


盐 量变 化 过 程 见 图 13，21。 


(2) 现在 我 们 用 计算 机 模拟 变化 的 过 程 。 每 过 4 时 间 计算 一 次 AQ fll Q , 将 8 与 要 求 的 


150 千克 相 比 ， 如 未 达到 150 FA MERMO. = EA Q 2150 千克 为 止 。 
变量 设置 ， 
S 一 流入 盐水 浓度 (2kg/ 升 ) 
F-- 每 分 钟 流量 〈5 升 /分 》 20 
Y 一 池水 体积 (1004) КЕ 


Q-- 池 水 原 含 盐 量 〈100 FH) 
P- 要 求 达 到 的 舍 盐 总 量 (150 FH) Q 
`“E-- 人 允许 含 盐 量 误差 OR E—0.001+- 


克 ) 10 20 30 40 50 60 70 80 90 1001101 
DT 一 模拟 时 间 增 量 〈0. 1 分 ) CD 时 间 
画 出 N-S 图 (图 13. 22) Шз 
程序 如 下 : 


10 REM жаана 

20 INPUT “s, f, v, Q, р, e, dt=”, S, F, V, Q, Р, E, DT 
30 PRINT “模拟 结果 :”" 

40 PRINT “时 间 《〈 秒 )”,“ 含 盐 量 〈 公 斤 )” 

50 5] 一 FExS 

60 T=0:SWITCH=0:N=1 

70 WHILE SWITCH=0 

80 K=T:1L=Q:S2=FxQ/V :Ql= (61—52) *DT 

90 T=T+DT:Q=Q+Ql 

100 IF INT (T+.00001) =N THEN PRINT N, О: N=N+1 
110 ТЕ ABS (Q—P) <=E THEN PRINT T, Q, “end” : SWITCH=1 
120 IF Q>P THEN T=K : Q=L : DT=DT * 0.1 


130 WEND 
140 END 
RUN 
s, f. v, p. q, е, dt=2, 5, 100, 100, 150, 0.001, 01x 
шж: 
对 间 Ф 会 盐 量 (公斤) 
1 104. 889 
2 109. 5389 
3 113. 9616 
4 118. 168 


5 122. 1687 ЗЛУЕ МО EE DT 
в 125. 9738 

7 129. 59% 

8 133. 0352 

9 136. 309] 

16 139. 425 

п * 142.3846 

12 145. 2014 

13 147. 8805 

13. 82802 149.9993 end 


FERAN Жї e ИИО. 0001, ДЇ 

输出 结果 的 最 后 一 行为 : 
13. 82832 150 end 

前 面 各行 都 不 改变 。 

了 从 0 开始 , 开 既 对 每 隔 0. 1 秒 计算 … 
次 仿 盐 状况 ( 即 每 隔 0. 1 秘 模拟 一 次 实况 。 
当 了 为 整数 时 打印 数据 。 当 Q=P 时 ( 即 

Q 一 P1<<e) ,打印 最 后 的 T,P ,程序 作 结束 

心理 《使 开关 标志 SWITCH= 1, 从 而 不 进 
АТК). 着 Q>P 则 表示 在 这 次 增加 
的 DT 时间 内 Q 由 小 于 P 变 成 Q>P。( 例 
如 T=13. 8 秒 时 ,Q<P, 而 T==13.9 秒 时 ， 
Q>P， 因 此 Q=P 应 出 现在 13. 8 一 13. ЭФ 
ZE. 故 应 将 T 偶 浸 一 个 DT, 注 小 DT 例如 原来 DT 一 0. 1 秘 ， 现 政 为 0. 01 秒 ， 以 恒 找 出 Q 
=P 的 准确 时 间 )。K 和 工 是 保留 前 一 时 间 点 数 沁 的 格 时 变量 ， 今 将 多 和 工 的 值 赋 还 给 T 和 
Q， 按 新 的 PT 重新 进行 模拟 。 如 果 又 出 现 上 述 情况 (QP), FHE DT 缩小 为 1/10，…， 如 
些 进行 下 去 ， 可 以 求 出 一 个 比较 准确 的 T 值 (参阅 输出 结果 情况 7 。 

请 注意 如 和 何 处理 “ 当 T 为 整数 时 打印 经 历时 间 和 舍 盐 量 "。 今 设 一 变量 N, 初 值 为 1， 当 
T 变化 到 T=N 时 就 打印 下 和 Q, 由 于 考虑 到 实数 的 存 贮 却 运算 会 有 些小 误差 (例如 T 应 为 9 
时 实际 上 却 为 2. 999999), 故 先 如 一 个 小 的 数 再 取 整 ， 当 此 数 等 于 N 时 ,就 表示 T 为 整数 .请 
分 析 100 fT. 


Æ 13.22 


13.7.2 Мж 


PRERE (Stochastic Mode), 指 的 是 模型 中 有 未 确定 的 参数 , 或 者 说 , ЖЕЛ 
确定 的 ， 人 们 事先 不 能 确切 地 知道 实际 情况 将 如 何 进行 。 全 如， 向 上 抛 - -个 硬币 ， 落 到 桌面 
上 到 底 是 正 而 还 是 反面 ? 明年 七 月 一 日 是 晴天 还 是 南天 ? 今天 有 没有 交通 吉 改 ? 什么 地 方 出 
现 交通 事故 ? 明天 考试 某 班 有 多 少 人 不 及 格 等 。 虽 然 在 这 些 事件 出 现 之 前 它们 是 不 能 确切 地 
确定 的 . 但 人 们 往往 希望 了 解 它们 发 生 的 可 能 竹 究竟 有 多 大 ( 即 机 率 ), 以 便 作 出 必要 的 反应 。 
入 们 机 以 根据 过 去 的 经 验 来 预测 明年 七 与. 一 日 的 天 气 是 703882, 203082, 5%, 4% 
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Жш, 可 以 估计 出 硬币 落地 对 正 反面 出 现 的 可 能 性 将 各 汕 E; 可 以 恨 据 过 去 的 情况 预测 出 
今天 有 可 能 出 现 1 一 2 次 交通 事故 , 发 生 的 可 能 地 点 是 郊区 和 繁华 地 段 ; 某 班 有 可 能 有 1⁄3 学 
生 的 数学 考试 不 及 格 , 等 等 . 本 书 第 七 章 例 7 7, 例 7，8 都 属于 机 率 性 模型 。 在 用 计算 机 模 
拟 时 要 用 到 随机 溺 数 来 模拟 某 个 不 确定 的 参数 ,例如 擅 100 次 硬币 , 可 以 用 100 个 0~1 之 癌 
的 随机 数 来 模拟 , 这 些 由 计算 机 产生 的 随机 数 在 0~1 区 间 是 均匀 分 布 的 , 当 随 机 数 的 个 数 足 
EER, E 0 一 0. 5 和 0. 5~1 之 间 的 个 数 应 该 大 体 相等 。 可 以 将 随机 数 在 0:5 以 下 的 认为 代表 
硬币 的 正面 . AFO 5 而 小 于 1 的 代表 反面 。 用 这 个 办 法 来 求 得 正面 和 反 曾 出 现 的 概率 。 

【 例 13.162 有 一 种 混凝土 结构 , 其 抗 压强 度 随 每 个 结构 而 不 同 , 根据 统计 , 有 5 时 为 
210 千克 /厘米 "，103% 为 225 УИ Же, 251429 240 千克 /厘米 "，30% 为 255 РУГЕ Ж". 
25% 为 270 千 克 / 厘 米 :, 5% 为 285 千克 /厘米 *, 见 图 13. 23, 结构 承受 的 应 力也 是 不 确定 的 ， 
根据 统计 ， 承 受 应 力 165 千克 / 亩 米 ? 的 机 会 为 5% . 承受 180 千克 / 原 米 "的 机 会 为 10%，195 
千克 /厘米 为 20%, 210 FA/EX H 25%, 225 千克 /厘米 :为 25% ,240 Ез / ШЖ 100. 
255 千克 /厘米 :为 5% 〈 见 图 13. 24)。 


分 布 机 ж 
REREH E/R) 
@ E RO B 
165 c 05 E 
180 0210 
185 0.20 
210 0.05 0.25 
225 0.10 0.25 
240 0.25 0.10 
255 0.30 0.05 
270 0.25 
285 0.0 
合计 1.00 А 1. 00 
求 该 结构 体 的 可 靠 度 。 可 靠 度 指 在 上 表 的 情况 下 ， 混 凝 土 强度 比 承 受 的 应 力 大 的 机 率 。 
这 是 一 个 非 确定 性 问题 ,因为 我 们 不 知道 某 一 结构 的 具体 抗 压强 度 和 具体 的 承受 压力 ,只 
能 用 模拟 的 方法 来 测算 其 概率 ， 计 算出 可 车 度 为 多 少 。 我 们 可 以 用 计算 机 产生 1 一 100 之 间 
《包括 1 和 100) 的 一 个 随机 整数 来 代表 强度 ,如果 它 在 1 一 5 之 间 时 取 抗 压 强度 为 210 TE 


厘米 "(机 率 为 155 一 5%) BE 6~15 之 间 则 取 强 度 225 ЕЛИ Ж" ОЛЖО у 1000), 16— 
40 则 取 强 度 240 千克 /厘米 "，…，96~100 时 取 285 干 克 /厘米 *。 另 外 再 产生 一 个 1~100 之 
间 的 随机 整数 代表 承受 的 应 力 ， 若 读数 在 1—5 之 间 ， 则 取 应 力 为 165 千克 /厘米 ,在 6~15 
间 则 取 180 ЕЛЕ Ж, 16—35 则 取 195 千克 /区 米 "，…。 比 较 强度 和 应 力 看 座 大 。 如 此 重复 
若干 次 ,累计 抗 压强 广大 于 所 受 应 力 的 次 数 ， 由 此 求 出 了 可 靠 度 的 机 率 。 
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«к 


га 


нш 


图 13. 23 图 13. 24 


可 以 画册 流程 图 (图 13. 25)， 共 据 此 编 出 程序 


Š RANDOMIZE 


90 
105 


115 
120 
180 
140 
150 
169 


INPUT *K=”, 
PRINT “模拟 “个 结构 的 可 党 度 ” 
PRINT “P: $k", “ЗЕ” 


K z ІМРОТ “L=", L 


FOR1=1TOK 
T=0 
FOR J=1 TO |. 
NI=INT (RND (1) * 100) +1 
IF NI<6 THEN 51=210 ESE IF УІ <:6 
THEN S1=225 FISE IE М1<141 THEN S1=240 
EISE ІР N1< 7 THEN 51—255 ELSE IF N1< 
96 THEN S1 =270 ELSE S1=285 
N2=INT (RND (`. )= 100) +1 
г N2<6 THEN $1=165 FLSE 1F N2<16 THEN 
S2= 1#0 FLSE IF N2< 36 THEN $?=195 ELSE 
下 N2 < 6] THEN 62 = 210 ELSE IF N2 < 86 
THEN S2=225 FLSE IF N2< 95 THEN $2= 240 
ELSE S2=255 
1>S2 THEN T=T+1 
NEXT J 
R=T“L 
M=M+R 
PRINT 1, R 
NEXT L 


MAAKARK аңа веди 


—[ 


[=| ° | 


T 198, Me R*M 
[人 


Warniwts 


图 13.25 


170 S=M/K 


180 PRINT 
180 PRINT “Фура ="; S 

200 PRINT 

210 PRINT “每 一 次 所 选 狼 点数 一; L 
220 END 


每 次 计算 出 一 个 “可 靠 度 ” 概率 , 共计 算 10 次 ， 最 后 取 其 平 沟 值 。 如 果 每 次 取 的 随机 数 
为 L 不 是 10 而 是 100 或 更 大 (如 1000)， 虽 更 好 些 . 每 次 循环 所 得 到 的 结果 也 会 接近 些 。 ш 
RL WEZ 
下 面 是 & 二 10, L=10 H K=10, L= 100 0 5 К=10, L=1000 时 的 三 次 运行 记录 。 为 节 
省 第 幅 ， 我 们 把 三 次 运行 绍 时 并列 ， 以 便 比 较 ， 


Random number seed ( —32768 to 32767)? 3x 


长 一 10 
上 一 40 (L— 00 Bf (L—1009) 
模拟 -1ТЕ RE 
хя JRE 
1 -6 -82 883 
2 9 28 -876 
3 -9 ‚86 -877 
4 .9 | 9099999 . 877 
5 -8 9 ‚378 
6 .9 87 886 
z 1 ‚88 - 876 
a .6 .9 .884 
9 9 .93 -a76 
10 .9 I .时 -866 
平均 可 靠 度 = .32 883 - 8778999 
EKARNAS 05 1060 


向 拟 是 在 处 理 实际 问题 时 十 分 有 用 的 一 种 方法 。 
$13.8 用 高 斯 消 元 法 解 一 元 联 立 方程 组 


一 元 = 阶 线性 联 立 方程 组 惟一 般 形 式 为 : 


| aun + auz; + ows =b O) 
anti 十 аза 十 T as, =b, (2) 
аал 十 asss 十 十 саш, =b, ©) 


ERRET АРЗ cis etos. Bl. Ж ИЕВ—11ЕШ--1-ЖЕБРЫЗИТЛИШЛ. 以 
消去 兵 它 各 行 的 xi 那 一 项 (使 a,，as.，…an 为 0。 然后 再 以 新 的 第 二 行 滋 以 一 个 常数 并 与 
第 3 行 到 第 n 行 相 加 ;以 消去 第 3 行 到 第 n 行 上 x 的 那 一 项 《使 x: 的 系数 为 0), … 最 后 要 以 
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新 的 第 (" 一 1) 行 乘 一 个 常数 并 与 第 nm 行 相 加 ， 以 消去 第 n 行 上 的 x。- 项 ,地 后 得 到 一 个 如 
下 形式 的 三 角 方 程 组 : 


аа + ауа» + арата 十 … 十 ay, = b), 
ата + arts 十 十 а/д, = by 


anrs =E бє + mer = by 
a z, = b, 


此 过 程 可 用 图 13. 26 表 示 。 
从 此 方程 组 最 后 一 个 
方程 式 可 以 直接 求 出 x, 一 


т, ЖОНИ “ИК”. Ж 
H ха, хз, Xlo 

还 要 考虑 -个 问题 ， 
如 果 在 上 面 过 程 中 ，u 为 


МКР 


零 ， 则 在 请 元 过 程 中 会 出 AKDSAKJD AT A 


ANR TRUR KET Семко. НВК 5 KE: 
BAENA, він, MA 
本 来 为 了 消去 第 2 行 的 x 
项 ， 要 进行 的 是 ，(1) Ж 图 13. 26 
x 名 一 (2) 式 , 若 au 一 0， 
则 发 生 洲 出 错误 。 必 须 保证 ai 夫 0。 若 发 生 a 为 零 ， 可 从 第 i 十 1 行 到 第 n 行 中 找到 一 个 第 m 
行 ， 其 am 关 0, 将 此 第 m 行 与 第 i 行 对 调 。 如 果 找 不 到 ， 邮 方程 无 解 或 无 定 解 。 可 用 图 13. 27 
т.‘ 

根据 上 面 介 绍 的 方法 ， 利 用 图 13，27 所 示 的 N 一 S 图 ， 得 到 上 面 列 出 三 角 方 程 组 。 再 使 
该 三 角 方程 组 中 各 A 的 值 为 1， 以 得 到 以 下 三 角 方程 组 ， 

СЕСЕ 十 че 十 az, = bi 
ta 十 as” 十 + nr, = b; 


el F ac рна, 


这 样 就 可 得 到 x, 二 b%。 然 后 回 代 。 求 出 хл, =o ИШ. MMSE (BM 13. 
28), 


请 读者 自己 根据 图 13. 27 和 图 13. 28 写 出 解 一 花 阶 线性 方程 组 的 程序 。 为 清晰 起 见 ， 最 
好 用 子 程序 ， 一 个 子 程序 完成 一 个 功能 。 
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使 An=1 


| A0JI=AIJ)MAUD 


iN TO 1 ӘТЕР ~ 


打印 由 xi 的 全 二 BID 


K=I-1 To 1 ӘТЕР 


BE=BKI-AIKJI BID 


па“ — w 
第 MI 有 与 而 对 要 


ақ 


мк 


мысал мр, А 


Е 13.27 图 13. 28 
习 题 ч? 


13.1 用 一 元 票 换 一 分 、 二 分 、 五 分 的 硬币 ， 问 有 娜 几 种 方案 〈 各 多 少数 ) 。 

13.2 找 出 1 一 1000 之 间 的 全 部 “ 同 构 数 ”"。 所 谓 “ 间 构 数 ”是 指 这样 一 个 数 ， 它 出 现在 
它 的 平方 数 的 右 端 。 例如 5 的 平方 是 5，5 是 25 中 端的 数 ， 5 就 是 一 个 间 构 数 。25 的 平方 
是 625， 因 此 25 也 是 同 构 数 。 

13.3 有 5 个 人 坐 一 排 , 问 第 5 人 年 龄 , 回答 “是 第 4 人 的 一 半 多 2 岁 ”, 问 第 4 人 人 年龄 ， 
回答 “是 第 3 人 的 一 半 多 2 岁 "。… 每 一 人 都 比 前 一 人 的 一 半 多 2 岁 , 最 后 问 第 一 个 人 . 回答 
说 “100 岁 "， 问 每 个 人 的 年 龄 ? 

13.4 ARENE, ЖИБЕ FREERK F IUE K ERA 


O) h. e"dx (2) Í Ginx— cosx)? dx 


(3) Ге. етк 
ё 
要 求 用 自 定义 通 数 。 并 上 机 运行 程序 ， 比 较 三 种 方法 的 特点 OJA- -函数 的 值 作 比 较 ， 分 析 
其 近似 程度 )。 
13. 5 用 牛顿 适 代 法 求 方程 在 0 附近 的 根 
F) = а — 322 + 2z + 1 
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13. 6 用 起 泡 法 、 插 入 法 和 希 尔 法 ， 对 10 个 学 生 记录 排序 ， 每 个 记录 包括 学 号 ， 成 绩 
和 和 班级。 要求 流 分 数 由 高 到 分 订 印 与 各 学 生 的 党 号、 成 线 和 班级 用 同一 组 数据 。 在 程序 中 
锁 计 比 绞 实 数 和 交换 次 数 或 移动 次 数 。 比 较 三 种 排序 方法 。 上 机 运行 程序 。 
13.7 НТЛ), SERRA п ЛУ, АОВ. 
15. 8 ”有 一 个 矩阵 (охот), 各 元 素 值 下 相同 ,要 求 找 出 并 打印 其 中 最 大 和 最 小 值 元 素 
所 在 位 置 ， 并 将 它 的 二 者 对 换 ， 然 后 ， 打 印 出 新 的 矩阵 。 
13. 9 ”打印 螺旋 方 隆 。 nxn 方 阵 中 由 连续 的 自然 数 Оп) житин 《各 数 转 
BHAD. ERAAN 要 求 输出 方 阵 。 
116 15 ú 13 
2 17 24 23 12 
3 18 25 22 11 
4 19 20 21 10 
5 ета 9 


13. 19 用 筛选 法 求 2— 00 间 的 全 部 素数 。 所谓 筛选 法 是 先 将 2 以 后 各 数 中 2 的 倍数 去 
掉 ， 青 将 3 以 后 的 3 的 倍数 去 掉 ， 再 将 5 以 后 的 5 的 倍数 去 掉 ，… 直 到 将 W100 的 整数 部 分 
(10) 以 后 的 10 的 倍数 去 掉 为 止 ， 剩 下 的 就 是 素数 。 

13. 11 PERTHE ETETA- TEREE. 每 -- 面 分 别 刻 有 |、2、3、4、5、 
6 个 点 。 假 设 有 4 个 锅子 ,希望 求 出 出现 四 个 “六 点 ”的 机 会 是 多 少 。 

13, 12 有 一 球 以 10 米 / 秒 的 速度 向 仰角 45" 方 向 抛 去 , 球 着 地 后 仍 保持 向 原 抛 出 方向 跳 
去 ， 但 速度 每 跳 一 次 比 前 次 减少 10 好 。 模 拟 此 球 最 前 面 三 个 疝 期 的 运动 ， 打印 出 其 轨迹 。 模 
ИНГЕН 40.1%. ОШ 13. 29.) 


图 13.79 图 13. 20 

13. 13 甲 飞 现 以 500 米 / 秒 的 速度 真 组 飞行 ， 乙 飞 机 由 其 正 后 方 800 米 处 向 甲 射击 . 1 
强 以 1000 米 / 移 的 初速 射出 ， 如 炮 洋 每 0. АЕ 1%% ， 回 炮弹 射出 后 多 入 可 以 击 中 甲 飞 宙 。 

13. 10 用 蒙特 卡 党 法 (Monte 一 carlo Метей) 求 z 的 和 近似值。 这 是 用 随机 数 进行 统计 的 
坟 法 ， 见 图 13，30。 

方法 是 : 产生 若干 对 随 丽 数 x 和 y, EKHE (0, D 之 间 , 目 为 王 值 ,等 一 对 x, y 对 
应 一 个 点 了 (x, y), THRA O 的 距离 为 xy， 车 T<1， 表 示 该 点 在 半径 + 一 + 的 图 内 。 
ЗЕМЯ ку ЛИИ А РА MRA ч 纵 落 在 加 内 , 则 第 一 象限 中 的 1⁄4 贺 面 积 与 小 上 
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方形 面积 之 比 为 : N/M, ДЕЛЖ ЕЛ 15 1 一 1。 整 个 大 正方 形 面 积 为 4， 因此 圆 面积 应 为 
з=. арин 5-4, 

ЗНЯВ M=100, 1000, 2000 1-90, Жо 近似值。 

13.15 Ж 100 =x 4+5 Ж (1, 3) 之 问 的 最 小 值 。 

13.16 13 ТАЕ — 8, 8 A ВИРТ 12, 29.13", 现在 , 从 第 一 个 人 开始 
数 起 , 每 数 到 5 时 , 这 个 人 就 从 图 里 出 来 . РИШ 1. 2, 6, 5, А Ж 5 位 的 这 个 人 也 
从 图 里 出 来 ， 凡 是 从 圈 里 出 来 的 位 置 、 下 次 数 的 时 候 就 跳 过 去 不 再 数 。 不 断 继续 数 下 去 ， 直 
到 全 部 13 个 人 只 圈 内 出 来 为 止 , 写 一 个 程序 , 使 能 打印 出 从 圈 内 出 来 的 人 的 顺 谍 。 如 : 第 一 
个 出 来 的 是 S°, 计算 机 打印 5, 第 二 个 出 来 的 是 19*, 计算 机 打印 10, 第 三 个 出 来 的 是 2*, 计 
算 机 打印 2，… 


13.17 根据 $ 13.8 介绍 的 方法 和 流程 区 ， 写 出 程序 解 以 下 的 联 立 方程 , 
| 3z ++ 3 = 10 


— 2r + 2y +4 9 
dr — 3y — 22 =— 0.5 
18.18 REENE: 
z + За + n= 
2e. 一 аф 2z = Т 
— z + Rar — За, =: - 8 


atdet 2а 12 
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第 十 四 章 True BASIC 简介 


$141 4] š 


以 “小 型 、 通 用、 会 话 、 易 学 ”为 特点 的 BASIC ТЕРГ, Б 1964 年 问世 以 来 ， 在 世界 上 得 
到 广泛 的 应 用 , 这 大 大 出 乎 BASIC 的 创始 人 、 美国 计算 机 语言 学 家 John G. Kemeny 和 Thomas 
E. Kurtz 两 位 教授 的 预料 。 当然, 这 是 值得 高 兴 的 事 。 但是, 它 的 成 功 也 市 来 了 一 些 间 题 , 次 
多 单位 和 企业 、 公 司 应 用 不 间 的 计算 机 系统 ， 它 们 都 配置 不 同 的 BASIC 版 本 , 38 BASIC 具有 
严重 的 “方言 性 ”， 它们 扩展 的 一 些 特性 过 多 池 依 赖 于 硬件 ， 从 而 违背 了 “通用 性 ”的 原则 。 
同时 ， 随 着 时 间 的 推移 ， 它 的 一 些 弱 点 也 日 益 显露 出 来 了 ， 因 此 遭 到 一 些 描 评 ， 以 至 很 多 人 
怀疑 它 是 否 有 生命 力 。 

还 是 这 两 位 BASIC 创始 人 自己 ,他们 用 大 量 的 事实 画 头 了 BASIC ЖР ШАТ ЈЕ, Ж 
认 并 指出 目前 广 为 流 传 的 BASIC 版 本 的 一 些 缺点 ， 在 充分 用 收 FORTRAN 和 PASCAL 等 语言 
优点 的 基础 上 ,于 1985 年 提出 了 一 种 完全 结构 化 的 BASIC 最 新 版 本 一 True BASIC HINA, 
Teue BASIC 可 以 与 PASCAL EWR, 并 相信 它 将 开辟 BASIC 发 展 的 新 纪元 。True BASIC 严格 
按照 美国 留 家 标准 ， 并 可 以 实现 结构 化 、 模 块 化 委 序 设计 。 

本 章 将 对 True BASIC 的 结构 化 ,模块 化 特征 及 绘图 贡 能 作 一 条 要 介绍 。 


$ 14.2 True BASIC 的 结构 化 语 向 


True BASIC 允许 使 用 行 导 和 无 行 导 两 种 形式 ,但 提 信 不 用 行 导 , 这 样 做 会 使 得 使 用 GOTO 
语 苔 的 欲望 逐渐 减 绊 ， 最 终 争 取 完 全 废除 行 号 ， 影 响 结构 化 的 GOTD 语句 也 将 随 之 请 失 。 

【 例 14. 1】 计算 x* 值 。 采 用 的 方法 是 基于 几何 学 中 的 简单 事实 : PRA 1 的 圆 面积 是 
x, 我 们 可 以 通过 计算 正 多 边 形 的 面积 来 均 近 圆 的 面积 ， 从 图 的 内 给 正方 形 开始 。 设 变量 a 为 
其 面积 , 因此 , a 的 初 值 应 是 2, 如 果 拒 圆心 和 各 顶点 相连 , 那 末 每 个 三 角形 的 高 n 应 等 于 1/ 
V 荆 。 若 每 次 将 多 过 形 的 边 数 加 倍 ， 其 面积 也 就 越 洲 越 接近 图 的 簿 积 了 。 通 过 计算 ， 可 以 得 
到 : Ж a=a/h; 新 的 h=SQR ( (1 十 hn) /2》。 程 序 和 运行 结果 如 下 : 


: ----Find pi 


lel аз=2 
let == /sqr (2) 
for k=1 ta 10 
let а==а/һ 
1еїһ=заг ( tl+th) /2) 
251 


printa 
next k 


end 


ОЕ. run 
2.82845 
3.08147 
5.12145 
3. 13655 
3.14035 
2.14128 
3.14251 
3.14157 
3.14199 
3.24159 

Ок. 

FL 程序 可 以 不 用 行 号 : ВЕНЫ ЯРА ЕП. SHEAR WER АЗАУ 

定义 符 用 LET， 程序 可 以 用 小 写字 母 书写 ;循环 体 采 用 缩 进 格式 。 从 这 个 调子 中 ， 主 结构 是 

FOR - NEXT 循环 , 0825—00. 对 应 的 边 数 就 殖 加 一 倍 。 九 次 选 代 以 后 就 可 类 确 到 小 数 点 后 

五 位 。 

结构 化 程序 设计 是 以 顺序 、 选 择 和 循环 三 种 基本 结构 为 基础 的 ， 结 构 化 程度 的 混 高 很 

大 程度 上 决定 于 选择 和 循环 兽 个 结构 。 下 面 我 们 分 折 True BASIC 中 ， 这 两 个 结构 的 特征 。 


14.2.1 True BASIC #gš& 3 t 


True BASIC 中 ,保留 了 BASK 中 原 有 的 二 分 支 选择 结构 。 
ПЕ 条件) THEN (HA1) ELSE (语句 )| 
此 外 ， 还 增加 了 IF 型 结构 语句 和 CASE 型 结构 语句 。 

G) 下 型 结构 语句 

它 的 一 般 形式 是 格式 I MERI И 


IF (ЖЕ L THEN 
IF ОК) THEN PSP E Cada 2) THEN 
Ж 1 ' 语句 块 2 
ELSE ELSE ІР (条 件 3) THEN 
语句 去 2 тш * 
END IF рҮҮ 
END IF 


格式 上 RI 
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它们 都 是 由 正 语 句 开始 , 以 END IF 语句 结束 , 中 间 部 分 分 别 以 ELSE 或 ELSE IF 分 隔 成 
两 个 或 多 个 语句 块 ， 每 个 语句 块 可 以 由 多 行 语句 组 成 。 从 形式 上 与 FORTRAN 语言 中 的 块 IF 
一 样 ， 同样 具有 良好 的 结构 化 特征 。 
它们 的 结构 化 流程 图 如 图 14，1 和 图 14，2 FR: 


Ж" ў жїз | 条 件 2 | 条 件 3 | 其 他 
ал | ний? ` жж | 语句 块 2 | нез | ий! 
图 14.1 图 14.2 


其 中 ，( 条 件 〉 是 浸 辑 表达 式 ，ELSE 及 其 下 面 的 语句 块 可 以 没有 。 对 于 格式 工 ， 一 个 正 
诗句 中 ， 叮 以 有 多 个 ELSE、 正 子 句 。 
【 例 14. 2】 求 二 次 方程 的 根 。 其 结构 流程 图 如 图 14，3 所 示 。 


程序 如 下 : 
t ----Өчайгайс equation m 
inprta, b, с —ы 


Лет d=b ж b—4xaxc 
if d2>0 then 


lers=sqr (d) 
print “The roots are,” sz, 
打印 两 个 


print 《一 b 十 s) / (2 *a) Tans 
打印 两 个 相同 实 根 打印 无 实 根 


print (—b—s) / (2*а) 
elseif d 一 0 then 


print “The root is (two same 


roots) :” 
print —b/ (2 <a) 图 14.3 
else 
print “No real roots. ” 
end if 
end 
Ok. run 


Coefficients:? 1, —2, —3⁄ 
Тһе roots are; 
3 
一 ! 
Ok. run 
Coetficients:? 1, —6, 867 
The root is (two same roots) : 
3 
Ok. run 
Coefficients:? 2, 4, 5⁄ 


No real roots. 

Ок. 

三 种 情况 分 别 在 正 、ELSE IF 和 ELSE 中 表示 ,末尾 用 一 个 ENDIF ЖАБ IF KR. WJ 
试 是 按 自然 顺序 由 于 对 性 何 给 定 的 d 值 都 只 有 一 条 通路 所 以 就 没有 必要 用 GOTO 语句 
Т. 

02) CASE 型 结构 语句 ， 一 般 形式 是 : 


SELECT CASE (IKA) 
CASE ЕЖ 1) 

语句 块 上 
CASE { 值 域 2) 

语句 块 2 


CASE ELSE 


WR n 
END SELECT 


其 结构 化 流程 图 如 图 14. 4 FR, 它 的 执行 过 程 是 , 先 计 算 表达 式 的 值 , 其 值 在 〈 值 域 1)， 则 
执行 语句 块 1， 否 则 在 〈 值 域 29， 则 执行 语句 鞭 2…， 否 则 ， 热 行 语 句 块 n。 


表达 式 | 
иг | 2 | {физ | e 其 他 
ЖН | ЖОШ? анз wap e 
L 
图 14.4 


Ж. RED дена, КЕ К, СНИ). ER 
2), o : 值 域 n 一 1; НЭН Ey kika {А ЖШ sk, H ЗГА СС, 
证 “常量 1> 《表示 某 个 值 ， 如 100 
© (ЕНІ) о 常量 2) (тете. ШШ “А” to “E” 或 10 to 100) 
© is ;关系 运算 符 ) ( 常 基 ? CERI, A 5221002 
与 IF 型 结构 语句 中 的 ELSE —Ë , SELECT CASE 结构 中 的 CASE ELSE 及 其 下 面 的 语句 决 可 
以 没有 。 
【 例 14.3] 统计 学 生 的 成 绩 ， 分 数 段 规定 是 10022p2290 Ж; 9C<p<80 为 良好 
80>p 之 70 为 中 等 ; 702>р2260 S AR; p<<60 为 不 及 格 ， 并 求学 生 的 总 数 。 
жек p2>100 或 p<0 З, Ф Б п. ЕЕ. 
| ++ Statistics of students marks 
let supper, upper, mid, pass, nopass=0 
input prompt “p= ", р 
do while (p<K= 100) and (p> =D) 
select case р 
саке 90 to 100 
let super=super+ 1 


case is 2>=8D 
let upper = upper + t 
case ® >=79 
Лет mig 一 mid 十 1 
case is > =60 
Jet pass 一 pass 十 1 
сазе else 
let nopass—nopass— 1 
end select 


input prompt “p=”, 


Іор 
let n =super + upper+ nid + pass— nopass 
Print “nas”, n 


"1 upper, 
: pass, “nopass="; nopass 


prin: “super = ": super, “upper: 
print “mid—”, mid, “pass=” 


end 


Ok, run 
р= 88:7 
р=98/ 
р= 68,7 


super= 1 upper 一 2 mid=3 pass=1 nopass= | 
Ok. 

14.2.2 True BASIC 的 循环 结构 
True BASIC 除 保 留 原 有 的 FOR -NEXT 循环 结构 外 ， 还 增加 了 DO 循环 结构 ， 
С 最 简单 的 DO И Ир EXIT DO 语句 
其 格式 是 ， 


《循环 体 ;《 可 包含 EXIT DO 语句? 


LOOP 
其 中 , EXIT DO 语句 能 控制 流程 转 刘 循 环 体 的 外 部 , 它 常 常 是 幅 在 JF 滞 匀 中 使 用 ， 当 满足 菜 
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条 件 时 ， 流 程 由 铂 环 体内 转向 体外 。 若 无 此 庄 外。 循环 为 无 陨 狮 环 。 

《2) WHILE 型 和 UNTIL 型 DO 循环 语句 

True BASIC 提供 了 多 种 灵活 的 牢 环 结构 形式 ， 在 管 单 DO 循环 语句 的 DO 后 而 或 LOOP 
后 面 可 以 用 WHILE (Ж?Р) 或 UNTIL 《条 件 RARAS. HERH TIS H: 


一 - lasa 


LOOP UNTIL ЕУ 


Je 


LOOP WHILE (384) 


DO WHILE (Ж) DO UNTIL (Ж) І 
ана Jars 
Looe Loop 
жж ны? i 
DO DO І 


格式 3 


HAA 


DO WHILE 《条 御 15 


Je 


LOOP UNTIL (Ж 2) 


DO UNTIL (2 1) 


É 


LOOP WHILE (2) 


格式 5 


HRG 


格式 1 种 格式 2 WERNER. SPITE: 而 格式 3 和 格式 4 EERTE EE A] 
断 条 件 ， 格 式 5 和 格式 6 为 以 上 两 类 的 结合 。 它 们 的 流程 图 如 图 14. 5 G) 到 GO 所 示 。 

也 可 以 用 N-S ARR. BE “ЖЇР” ШОР ЖА, "Жа" 以 P, 表示,“ 条 件 2” 以 P; 表 
示 …。 格式 1 HES М. 6 (а) 表示。 格式 2 实际 上 是 格式 1 的 变形 ， 它 可 以 表示 为 图 14. € 
Cb)。 其 中 巨 宸 示 为 的 反 条 件 。 例 如:“DO WHILE x 之 0”， 可 没收 写 为 : “DO UNTIL x<— 
0”, “x<=0” È “x2>0” ЕЖЕ, “DO WHILE x2>0--” лї: 当 沁 0 秆 为 行 德 环 体 ，“DO 
UNTIL 0.67 表示: Ë x<=0 就 不 执行 循环 体 。 显然 二 者 的 作用 相同 . җе 2 也 可 以 直 
接 表 示 为 图 14. 6 (67) 形式 。 格 式 3 用 图 14. 6 (ce) 表示。 格式 4 其 实 是 格式 3 的 变形 ,可 
以 表示 为 图 14. 6 xd) 。 王 是 对 了 的 取 反 。 例 如 ,“DD……LOOP UNTIL x< = 0” 相当 二 “DO 
ee- LOOP WHILE x>0”。 格式 4 可 直接 用 图 14. 6 (a) Жл. о 5 可 以 用 (е) К Жл. 格 
式 6 可 以 用 图 (f) Er CTAB (M ER. 

要 注意 的 是 ， 
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(1) 格式 1 和 2 可 能 一 次 也 不 执行 循环 
体 ， 而 格式 3 和 4 有 至少 搞 行 循环 体 一 次 。 

0) i 条件) 可 以 是 从 意 的 逻辑 表达 式 。 

(3) WHILE 是 当 条 件 为 真 时 ， 重复 执行 
循环 体 ; 而 UNTIL 是 当 条 件 为 真 时 , 停止 执 
行 循环 体 .因此 ,要 把 WHILE 改 成 UNTIL 对 
或 UNTIL 小 为 WHILE f. RREK. 
例 14. 4 同时 展示 了 EXIT DO 语句 和 
WHILE 型 DO 语句 的 用 法， 程序 很 简单 ， 目 
的 只 是 了 解 一 下 这 两 个 语句 的 应 用 。 

【 例 14. 43 计算 两 数 乘积 〈 在 DO fE 
环 中 应 用 WHILE 条件 } 和 EXIT DO 语句 来 
决定 程序 是 和 否 退 出 循环 ) FMT: 

Н ----Caicalates products 
do 


input prompt “Input a, 6:° ; а, b 
if а= 0 then exit do 
ptint “a + b=”; a wb 
print “more”; 
input answer $ 
loop while answer $ — “yes” 


end 


Ok. run 

Inputa, э; 8, 5 
а *b=—40 

more? yes,” 
Input a, b; 6, d 
ax b 一 2 

more? no,” 

Ok. 

Dk. тїп 

Input a, b; 3, 4⁄7 
a< b=12 

more? es 
Inputa. b, 0, 8 
Dk. 


RY 
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6. 


MARTRE ЕАБР ЦЗЕ Я. EA “уез” түп ҢЕ ЕН А ЖЕК. ЖИЙ. KERE 
行 . 程序 中 有 意 放 入 一 个 条 件 语 句 ， 当 输入 的 第 一 个 乘 数 为 零 时 , 通过 EXIT Do 语句 可 以 退 


出 循环 ， 


EF, LOOP 中 的 条 件 ， 我 们 可 以 用 下 而 语 馈 来 代替 ， 


LOOP UNTIL ANSWER $ — “NO” 


ARPA 
РҮН кө MERA 


Ba во яз 

А = tb; 

aet PETN 

直到 蕊 为 下 
格式 4 кка 
tc, Ч 4 
ANPHA 
| 
ГҮЛ 
жд ГЕЯ fx 5 
le) Ш] Kaj 
图 14.5 


514.3 True BASIC 的 程序 的 模块 化 


True BASIC 允许 用 户 定义 通 数 、 子 程序 和 座 图 功能 ， 用 它们 实现 模块 的 功能 、 并 且 可 以 
把 它们 组 成 “ 库 详 件 *， 以 便 调 用 ， 这 就 为 实现 程序 的 结构 化 、 模 块 化 提供 了 有 力 的 工具 ， 


14.3.1 函数 的 定义 和 调用 


True BASIC 保留 了 BASIC 中 的 自 定义 函数 . 除了 可 以 使 用 单行 定义 形式 外 ,还 增加 了 多 
MEXER: 
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DEF 《函数 名 《参数 O, 


— lasa 


J 


-es 


END DEF 


LET :函数 名 ; = (НАЖ) 


(ER, 


阴 数 可 以 有 一 个 或 多 个 参数 ， 但 调用 后 只 由 郑 数 名 带 回 一 个 函数 值 。 JE EMRE 
END 语句 之 前 的 函数 称 为 办 部 函数 , 如 果 函 数 的 位 置 在 END 语句 之 外 , КУА ВА В, РА 
部 函数 的 调用 和 标准 函数 一 样 ， 而 外 部 函数 调用 时 ， 首 先 村 在 程序 开头 用 灵 下 语句 说 明 ， 


DECLEARE DEF (WHA 1). (RRA 2), -- 


其 中 一 次 可 以 说 明 多 个 函数 名 ， 用 逗号 隔 开 。 


14.3.2 子 程序 的 定义 和 调用 


然后 和 标准 函数 一 举 调 


True BASIC 中 , 子 程序 都 有 自己 的 名字, 并 且 用 САМ, 语句 来 调用 , 子 程序 由 


由 END SUB 结束 ,很 容易 识别 ， 它 是 一 段 独立 的 
子 程 疗 的 位 置 在 调用 得 序 的 END 语句 之 前 或 之 后 


EF, TURE 


END SUB 


子 程序 的 调用 形式 是 ， 


CALL 〈 子 程序 名 ) CC (RAA 1)，《 表 达 式 2》，…) 


RE, CALL 语句 中 页 出 的 表达 式 的 值 的 数据 类 型 必须 与 上 面 SUB 语句 中 列 


不 管 是 为 部 子 程序 还 是 外 部 子 程序 ， 调 用 的 形式 是 相 问 的 。 


14.3.3 ЕХ 


库 文件 不 包 舍 主 慨 译 ,而 是 一 些 外 部 函数 和 外 部 子 程序 的 集合 ， 以 便 供 大 同 
True BASIC 除了 允许 用 户 以 库 文件 的 形式 存放 自己 定义 的 外 部 画 数 却 外 部 于 程序 外 ， 还 提 
洪 了 四 个 包含 数学 函数 的 岸 ， 一 个 包含 图 表 的 库 和 一 个 包含 使 用 莱 单 于 程序 的 库 。 


GQ ” 库 文 件 的 建立 


SUB 开头 ， 


程序 中 的 任何 地 方 。 根 据 
> DURARA RT EFRR T 
| SUB ( 子 程序 和 名) CEBA D., (#02), eJ 


程序 ， 


НОР. 


程序 共享 . 
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ВЕЛИ ЕЛИ ЗАО —Ж EXTERNAL 滞 句 ,然后 用 SAVE 
命令 将 它们 存 和 磁盘， 形式 是 : ` 


SAVE (В) 


EM) 遵循 DOS 中 有 关 文件 名 的 规定 。 

《2》 EXPER 
当 程 序 要 调用 库 中 的 子 程序 或 函数 时 , 应 在 调用 之 前 使 用 一 条 LIBRARY 语句 , 并 指出 要 
检索 的 库 文件 和 名。 形式 是 : 


LIBRARY < ¿(FE D”, “ (RA 2D", = | 


这 样 就 可 用 到 党 方式 调用 库 1 和 库 2 中 的 函数 和 子 程 庆 了 。 在 实现 比较 复杂 的 算法 时 ， 利 用 
库 文件 的 优越 性 是 明显 的 。 


§14.4 True BASIC 的 绘图 


True BASIC 提供 了 很 好 的 绘图 芒 能 ， 它 的 绘图 语句 简单 、 直 观 , 同时 : 可 以 定义 于 程序 
形式 的 图 画 程序 块 。 


14.41 图 形 窗口 坐标 


True BASIC 把 屏幕 看 作 是 - -个 平面 直角 坐标 ， 图 形 徐 口 就 是 平面 兰 标 系 中 的 一 个 盾 形 
区 间 ， 图 就 画 夺 此 什 形 区 间 之 内 。 所 以 ， 在 使 用 作 图 语句 前 ， 必 须 先 用 设置 窗口 语句 ， 


SET WINDOW (Хтіп), (Xmax), {Ymin}, {Ymax} 


所 建立 的 窗口 如 图 14.7 所 未 
用 户 设置 窗口 的 同 
时 ， 也 就 设置 了 窗口 的 
纵横 已 ， 坐 标 与 象 素 点 
的 换算 由 True BASIC 
自动 进行 ,如 果 需 要 ,可 
以 把 几 个 不 司 窗口 的 图 
ERHI -FEE 
组 成 一 幅 新 的 图 形 。 
True BASIC } 
CLEAR 语句 清除 当前 
AXAN. Ai. т 
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14.4.2 作 图 


G Mä: TrueBASIC 使 用 PLOT POINTS 语句 画 点 ， 形 式 是 ， 


PLOT POINTS; Xi, Yı G; Xz, Ya; ee) 


фт, х, Ү; 是 要 画 的 点 的 坐标 。 如 果 仅 画 一 个 点 ， 则 语句 可 以 简写 为 ， 


—— 
о) Bi; 
True BASIC 提供 的 画 线 语句 的 形式 是 : 

| PLOT LINES, Xi, Yu; Ху, Yas © І 
或 | фот X, Yu Xa, Yy + 


其 中 分 号 表示 从 前 一 个 坐标 点 向 后 一 个 坐标 点 画 一 条 直线 。 如 PLOT 5, 5, 20, 20 表示 
由 坐标 点 (6, D 向 坐标 点 (20, 20) 夯 一 直线 。 而 
PLOT 0, 0; 1, 0; 1, 1; 0, 0 

RTE 个 直角 三 角形 ， 册 条 直角 边 的 长 度 是 1。 

当 PLOT 语句 以 分 号 结尾 时 , 表示 其 最 后 一 个 坐标 点 ,将 向 下 一 个 PLOT 语句 中 的 第 一 个 
坐标 点 画 - 直线 ， 如 上面 这 条 语句 跟 下 面 两 条 语句 的 作用 是 一 样 的 。 

PLOT 0, 0; 1, 0; 

PLOT 1, 1; 0, 0 

其 实在 应 用 PLOT 语句 时 , 当 坐 标点 后 有 分 号 时 , 称 定点 有 向 输出 , 即 向 下 一 个 坐标 点 画 
线 ; 而 坐 妹 点 后 无 分 号 时 ， 称 定点 无 向 输出 。 

(3) ЖУ 

True BASIC 0—7 АЈ, ЖЖ: 

[BOX LINES Xmin, Xmax, Ymin, Ymax| 
ЖЖТЕП ЖЕ. БИЙ С ААИ S: 
SET WINDOW —14, 14, —10, 10 
m, # BOX 语句 是 下 面 的 形式 ， 
BOX LINES —5, 5, —5, 5 | 

则 程序 画 出 的 是 在 坐标 正中 的 边 长 为 10 的 正方 形 。 

(4) ЯЙ 

BOX HAETI A Жы ЯШИ, ÉRE: 


[ BOX CIRCLE Xmin, Xmax, Ymin, Ymax 


或 [BOX ELLIPSE Xmin, Xmax, Ymin, Ymax] 
AMHRAN, 4 ET” ACHEN, ИШ ЖШ; эн “AT” BKIK, EH 
WEA, 
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14.4.3 着色 


«2 лета 
True BASIC JẸ SET COLOR Т ЕЕ А, PRE, 


Г БЕТ COLOR “ ( 色 各 )” _| 
或 БЕТ COLOR 153) 
True BASIC 用 SET BACK HHI ЕТИШ ОКЕ), KRÆ: 
| sersa“ сафо" GR (взр 
或 | SET BACKGROUND COLOR “ СЕ 07 (R (@&# | 
IBM- PC 机 上 使 用 的 前 景色 和 背景 色 分 别 如 表 14. 1 WR 14,2 FR. 
表 14. 1 Е. ЗС 
е5 ES е BA 
° ME 5 back 
Z green Сай) 1 ыле i E 
2 red С) 2 geen `] 
3 yellow (H) 3 cyan l ] 
4 суап СЙ) 4 red u 
3 magema (PH) 5 magenta 
5 white CH) 6 yellow _] 
T white 
(2) БООР} >) 
FLOOD 语句 用 来 着 色 ， 其 形式 是 ， 
FOLLD X, Y | 
其 功能 是 将 点 CX, Y) 的 颜色 扩散 到 具有 相同 颜色 的 邻近 象 原点 上 。 它 可 用 来 对 用 当前 色 囊 
的 圣 球 图 形 着 色 。 
(3) PLOT AREA #4] 
语句 的 形式 是 : 


| PLOT AREA, X,, Yn Xs, Үш = 


其 功能 是 先 从 筑 一 点 G, Y) 到 第 二 o Үз) MR. 再 从 第 二 点 到 第 三 点 (Xa Yd M 
线 ， 以 此 类 推 ， 最 后 画 一 条 最 后 点 到 第 - -点 的 线 ， 把 区 域 封闭 起 来 ， 再 用 前 复 色 填 满 整个 区 
域 。 

{4) Я ВОХ AREA 语句 代替 ВОХ LINES 语 划 ， 可 以 画 出 一 个 用 当前 颜色 填 满 的 矩形 
B. 


«ДЕ» МИЕ. АСРЫ ЕЖЕ БЕ: а ЖШ БОЕ АА ЕС ГА 
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JL, 

程序 用 SET WINDOW iB ЗЇН u Jp ЗАНАТ Й Е, ВНЕ E X D oF 10,Y 
从 一 1 到 1, 然后 清除 屏幕 , ШЇ ЕХ Raju Y h, x 轴 和 Y 轴 的 颜色 是 绿色 , 正弦 曲线 的 颜色 是 
用 黄色 ， 而 常用 对 数 曲线 的 颜色 是 用 红色 .此 避 序 在 黑白 机 《其 有 图 形 适 孔 闪 的 ) 二 运行 时 ， 
两 根 轴 和 两 根 曲线 都 录 示 同 颜色， 程序 如 下 : 


---- Intersection of two curves 


set window 0, 10. —1, 1 | 
clear i 


3et color “green” 

Bor 0. 0; 10, 0 
Plot 0, —1; 0. 1 
set color “yellow” 


for x—Ü to 10 step 0. 2 
piot x, sin (x); 
next x 


pior 


8 14. 8 


зе: color “red” 

for x=] to 10 step 0.2 
plot x, 816 OO; 

neat x 


end 


图 14. 8 是 运行 结果 。 
14.44 加 形 中 的 正文 设置 


图 形 中 的 正文 设置 可 骨 一 条 PLOT TEXT 语句 来 完成 ， 它 的 形式 其 : 
PLOT TEXT, АЗ X. Y, СРНА) 


其 作用 是 把 字符 申 绘 制 在 图 象 坐 标 ОХ. O 的 右上 方 。 它 的 输出 形式 跟 PRINT 语 名 相同 ,也 
可 以 使 用 USING $ 函数 。 
[ 例 14.61 ША. 程序 运行 结果 图 14. 9 新 示 。 


! ----Draw a histogram 
set window б. б, 0, 150 
for x=1 to 5 
read value 
box arsa х—. 4. x+. 4. 0, value 
BIeE text, atx—. 4, value++ iD; using$ (FHH. Ж”, value) 
next х 
data 18.8, 40.8. 95.4. 65.6, 25.6 


end 


14.4.5 动画 


True BASIC 为 实现 动画 功 
ж. 引入 了 保存 删除 和 显示 图 形 
=Т=. 

(1) ”把 “盒子 ”内 的 图 形 
‘包括 前 景 和 后 景 ) 存 入 一 个 字符 


зз. 
б 
串 变 其 之 中 ， 句 子 的 形式 是 ， <. ' 
вох KEEP Xmin, Xmax, Ymin, Ymax IN (2648 | = ГА = 
( 删除“ 盒子" 的 语句 形 


RH: 
BOX CLEAR Xmin. Xmax, Ymin, Ymax | 图 14.9 
OO O ая таг" MEERY 
! BOX SHOW (字符 串 变 量 》 AT Xmin, Ymin _ | 
它 给 出 的 Nmin 和 Ymin 为 盒子 再 现时 左下 角 的 坐标 位 置 。 


【 例 14. 7】 用 True BASIC 的 动画 功能 ， 西 一 个 绕 地 球 旋转 的 “入 造 口 星 ”， 程 序 如 
F: 


---A moving sarlate 

set window — 14, 14, —10. 10 
set volor “red” 

box стче—0.2, 0.2, —0. 2, 0.2 
flood 0, 0 

box keep — 0.2, 0.2, —0. 2, 0.2 in ball $ 
box clear —0. 2, 0.2, —0.2. 0.2 


set color “blue” 

bona cercle 6, 6, —6. 6 

flood 0. 0 

Тога =Ù to 200 = рі мер pi/ 200 
let х= 8 ж соь (а) 


let у=8 кып (a) 


Бох show бай $ at x. у 

Бох clear (х). (x+0. 5), ty), (у+0. 5) 
nexia 图 14.10 
end 


程序 在 某 时 刻 的 运行 结果 如 图 14. 10 所 示 。 
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14.4.6 画 功 能 


True BASIC 引入 了 PICTURE 子 程序 ， 它 与 科学 计算 和 数据 处 得 中 的 子 程序 一 者 ， 也 具 
有 独立 生 ， 可 以 被 其 他 程序 调用 , 并 且 根 据 需 要 在 调用 它 时 可 作 移 位 、 改 变 宽度 、 放 大 编 小 、 
ена. PICTURE 子 程序 也 可 分 内 部 的 (定义 在 主 程序 的 END 之 前 ) 和 外 部 
的 《定义 在 END 之 后 )， 也 可 放 在 库 文 件 中 。 

O 图画 的 定义 与 调用 

图 画 的 定义 形式 是 ， 


PICTURE (HES) ( (ОЖ 1), (RE 2), 00 
к 


PLOT- 


ана 


END PICTURE 
L . 
图 区 的 调用 由 DRAW Злу Ш К ЗОЛ, ВЕТО ВОНИ АІ, ея. 


DRAW 语句 的 形式 有 : 


Ф DRAW (Mmg) 

@) DRAW 《图 画 名 》 WITH ОЎ) 

@ DRAW (ШШ) WITH GERO н О) * | 
《2) 图 画 的 变换 


True BASIC 提供 表 14. 3 所 示 的 五 种 变 效 ， 供 图 通 调 用 语句 DRAW 使 用 。 上 面 形式 @ 的 
DRAW 语句 使 用 ‘变换 D w (变换 2》 是 一 种 复合 变换 ， 可 以 同时 进行 丙种 或 两 种 以 上 的 变 


m. 


314 3 
| жак Е 
Shift (а, d) 移动 (x, у) 到 Gera, y+b) 
Scale (а, b) КЖ (x. у) X (жа, уяр) 
Scale (а) ШЖ (х, у) у (ка, уял) 
Rpotate (a) ШЕ с КОЙНУ a ПУ 
Shear (a) ЖЕКИ а ME 


注意 : 只 能 对 用 PLOT 语句 画 的 图 形 作 变换 ， 画 对 用 BOX 语句 画 的 图形 无 效 。 
【 例 14.8】 对 矩形 作 旋转 和 放大 变换 。 程 序 如 下 ， 
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图 14. 11 是 程序 运行 结果 。 


----Make a “square” picture. 
Rotate and Ѕсаје it. 


picture square (size) 
plot —alze. size; size, size; 
plot size, —size; —size, —sze, 
piot —size, size 


end picture 


set window — 14, 14, —14, 14 
fo k= to 10 
draw square (1) with rome (k ж рі/40) # scale (k) 


next k 
end 


mui: 


【 例 14.9】 ЛЕ 


五 星 红旗 有 五 颗 旦 ,我 们 可 以 把 画 CEEA REFE 
变换 它 ， 


然后 在 主 程序 中 调用 证 
使 得 它 在 不 同 的 位 置 上 技 规 定 的 比例 和 角度 画 出 五 颗 星 、 星 的 颜色 臣 黄 色 的 。 据闻 


是 红色 的 。 程序 如 上 下; 
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----A flag with five stars 
set window —5, 21, —14, 6 
set back 1 
set color “red” 
box area —2. 5, 10.5. —7, 3 
set color “yellow” 
draw star with scale (1. 1) * rotate (pi/2) 
option angle degrees 
for m=0 to 3 
let fi=—454m » 30 
draw star with cotate (fi) w shift (1.5 w соъ (fi), 1.5 «хіп (fi)) *seale (0.4, 0.45: 


текс m 
end 
piciure star 
let ogn =рі/2 
let pio=4 * pi/5 
for k=0 10 4 
let x=0. 8 ecos (bng+k w pio) 
let y=0. 8 < sm (bng+ ж pio) 
plot х. yi 


next k 
plot 0. 8 * соз (bng). 9.8 + зіп (bng) 
flood 0. 0 Bl 14.12 


for к=0 to 4 
flood 0. 4 + cos 《bng 十 k x pio), 0. 4 ж віл (bng 十 kx pio) 
next k 
end picture 
程序 从 上 而 下 : 设置 图 形 窗口 坐标 ， 设置 背景 色 为 蓝 色 ; 设置 前 景色 为 红色 ; Шакт. 
置 前 景色 为 黄色 ， MALAE 选择 角度 单位 为 度 ; 画 四 颗 围 绕 的 星 ， 程序 结束 。END 语句 
下 面 是 一 个 是 五 角 星 的 子 程序 。 图 14. 12 是 程序 运行 结果 


S14.5 True BASIC Ч #932114 315 9) (MAT 4) ) 


True BASIC 还 提供 了 一 -系列 处 理 整 个 数组 的 MAT 语句 ， 只 要 用 单一 语句 ,就 可 以 实现 
EER H. RERI m RIZR. 


(1) EER 
[МАТ READ 《数组 D, (2), -- 
{2) ETE 
[MAT PRINT (数组 1)，( 数 组 2)，… 
或 МАТ PRINT {数组 1); (数组 2); <+ 
其 中 退 号 和 分 导 的 作用 与 PRINT 语句 相同 。 
(3) ”矩阵 赋值 


MAT (数组 二 (常数 
或 MAT 《数组 1) = 《数组 2) 
(4) ERRANA 


MAT INPUT 《数组 1 )，( 数 组 2) ，… 


(5) ”矩阵 运算 
MAT (数组 3) 一 《数组 1》 十 (数组 2》 
MAT (数组 3》 = (数组 1 一 《数组 2 
МАТ (数组 3) = (WAD «+ (数组 2) 


【 例 14. 10】 ”假定 一 个 班级 最 多 可 以 有 50 个 学 生 , 每 个 学 生 最 多 有 10 个 分 数 , 计算 每 
个 学 生 的 “加 权 平 均 分 ”。 

要 求解 此 问题 ， 证 我 们 先 设 几 个 数组 ， 分 数 存放 在 数组 “grades” 中 ， 权 重 放 在 
“weights” H, 算出 的 平均 分 放 在 “average” 中 ， 人 名 放 在 “name$” 中 。 

所 有 的 信息 都 放 DATA 语句 中 。 先 读 入 具体 的 学 生 数 和 每 个 学 生 的 分 数 个 数 ， 然 后 用 一 
个 简单 的 MAT 语句 就 可 读 入 学生 的 全 部 分 数 。 如 : 

MAT READ grades (s, g) 

将 读 人 s 行 8 列 的 数组 

下 面 再 用 一 个 MAT 语句 就 可 算出 所 有 平均 值 ， 最 后 打印 出 入 名 和 平均 分 的 表 。 

当 学 生 人 数 很 多 时 ， 通常 把 数据 放 在 一 个 文件 中 , 也 可 用 MAT READ 语句 读 文 件 中 的 数 
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程序 和 运行 结果 如 下 : 
1 --mAveraging grades 
H Allow up to 50 students and 10 grades per student 
dim grades (50, 10), weights (10), average (50), name$ (50) 


res, Б 

mat read grades (g, g), weights(g),name $ (s) 
mat average —graóes ж weights 

fori=l 195 

print name $ G) ,аметаде(і) 


next i 


data б, 4 

data 87, T8, 82, 85 

data 87, 99, 82, 100 

data 73, 82, 67, 85 

data 59, 62, 73, 81 

data 88, 88, B8, 88 

data 77, 61, 59, 9З 

dam 0.2, 0.2, 0.2, 0.4 

data Wang, Li, Zhang, Fun, Ling, Qing 


end 
Ok. run 
Wang B3. 8 
li 93.6 
Zhang 78.4 
Fun 71.2 
Ling ва. 
Оша 76.6 
Ok. 


S 14.6 怎样 使 用 True BASIC 


14.6.1 进入 True BASIC 


True BASIC 要 在 MS 一 DOS2. 0 或 更 高 的 版 本 支持 下 工作 。 
当 开机 之 后 ， 显 未 器 显示 A>, fE True BASIC ЖЛ. А 驱动 器 ， 并 键入 HELLO: 
A>HELLO, 
稍 等 片刻 ， 在 屏幕 席 部 显示 如 下 : 
True BASIC here 
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Version 1. 0 
Copyright (с) 1985 Бу True BASIC, Шс. 


Published by Addison 一 Wesley Publishing Company, Inc. 


ок 


“OK” JE True BASIC 的 提示 符 ， 在 这 儿 可 以 键入 True BASIC 命令 。 


14.6.2 屏幕 上 的 窗 噩 


在 进入 True BASIC 状态 之 后 , 屏幕 分 为 上 下 两 个 区 域 . 上 面 的 式 域 叫 编辑 窗口 (editing 
window) ,供用 户 编辑 自己 的 True BASIC 程序 用 。 下面 的 区 域 叫 背景 窗口 history window), {К 
用 户 输入 True BASIC 命令 ,或 娃 未 程序 运行 结果 。 由 于 它 能 给 出 人 机 对 话 期 间 约 痕迹 故 取 


名 背景 窗 河 。 如 图 14. 13 所 示 。 


вла 


行 标志 


g let a=3 
A print a 
т=з 


явап 


В 14 13 


14. 6.3 退出 True BASIC 


退出 True BASIC 可 键入 如 下 命令 ， 
ОК. bye 
ёл: A> 一 


т 窗口 转换 ， 

配 个 窗口 ， 一 个 豆 以 输 人 True BASIC 
命令 ， 一 个 可 以 综 辑 用 户 程序 ， 光 款 可 以 
在 两 个 窗口 上 来 回转 换 。 按 区 Е. 光标 移 
至 编辑 徐 品 REJE 光标 移 至 背景 窗 上 ， 
而 县 仍 区 到 它 离开 时 的 位 置 ， 

© WH, 

编辑 窗口 系统 既定 管 是 17 i, ТЕ 
窗口 是 7 行 。 中 间 横 线 占 1 行 。 利 用 如 下 
命令 ， 可 以 重新 定义 编辑 窗口 大 小 ， 

ОК. spJit n (б=п<=:24) 
表示 编辑 窗口 为 n 行 。 


表示 机 器 已 退出 了 True BASIC 回 到 DOS 状态 ， 此 时 ,可 以 把 True BASIC 盘 从 驱动 器 中 取出 。 


关机 结束 ， 


14.6.4 编辑 命令 


True BASIC 的 编辑 功能 是 金 屏 幕 状态 下 进行 的 。 表 14，4 是 在 IBM 一 PC I EERE. 光 


标 移动 刍 一 览 表 ; 表 14 5 是 常用 编辑 键 一 览 表 。 


可 EB- FANE [ГУ ЕГА 
= Ж THUR [Реб иг 
ЕІ Кит Tan] ий Г 
7 Tet Era gF 
Em вери -加 зет 
Endl BERORR [mE ВЕНЕ 
表 14. 5 
RER [ТУТ 
__ _ aE о, MR, É 
Del 删除 当前 字符 E а. RAG GIER, Ша] 
解除 当 药 行 的 未 记 
[Gia [Вос Е Gn) , 
= ERA TARAR Н 
a g 制 到 光标 ЖЛ. 
и. рад тий 4 ap EPEN. EH ЕШ Tl [pi 
TERZ 
[Ed 删除 当 者 行 中 光标 左边 的 全 部 字符 
| Ба-а  тйзиптзнырзерет |E ЕЗИНЕ kq 
| [B<] 光标 在 行 标志 处 时 ， 是 除 当前 行 | [БЕ] RARE SS EB W 
Е бА В 当 光 标 位 于 和 标志 处 时 ， 将 当前 和 
| E] жтт WBS NTT mie SEIER ч 
| = 硅 光 标 白 在 处 播 入 - - 空 行 四 Кз: е 
Н Ea нәр #31 
L 
14.6.5 True BASIC 的 文件 处 理 和 程序 控制 命 今 


Kls 6 列 出 了 True BASIC 常用 的 文件 处 理 和 程序 深 制 命令 。 
表 14.6 
ж Ф J = 3 ш 

New 请 除 必 存 ， 光 标 移 到 编辑 窗口 起 点 。 

Rur 或 [Fs > 解释 运行 为 在 中 的 程 子 《也 叫 当 前 文件 )。 

N ,| ЗИ ЖИН, 并 让 入 文件 各。TRV =, ЕРЕН СЕ, ВНЕ, 

Save 文 作 名 

内 在 不 变 。 
Unsave 文件 名 | 删除 关上 指定 文件 。 文 件 各 可 用 Dos RENAK, 


A % 参数 С] 能 
он 文件 名 | 消除 内 任 ， 凋 指定 文件 进入 内 企 ， 并 显示 在 屏幕 上 。 
击 除 坎 盘 工 指定 文 件 ， 并 将 当前 文件 存 人 该 名 下 。 刀 果盘 有 写 保 护 ， A ENR. | 


Кері: 文件 

各 | BRETA. WAME. STKE 
ік ESBO) RAHOMNRIE WERE. SU: Lol RREK, HAREHARRI. 
File [参数 | 显示 True BASIC i 1 ХН, £ 38; DOS 的 DIR 命令 发 似 I 

RORE MEP. ЖЕЕ ЕТА AS, MEEO орк. 1A Heh AEREE 

Help 或 | 

° TORI] нар 参数 清单。 
Compile ‚ 把 当前 文件 编 详 成 编译 代 码 。 存 鼻 语 文件 名 后 缴 为 TRC 

习 题 


14.1 请 比较 True BASIC 与 MS BASIC 的 特点 。True BASIC 在 哪些 方面 作 了 重大 改 
进 ? 

14.2 True BASIC 为 什么 允许 不 用 行 号 ?而 且 捉 倡 不 用 行 号 ?怎样 才能 在 程序 中 不 用 Go- 
ТО 语句 ? True BASIC 提供 了 哪些 功能 以 使 程序 可 以 避免 使 用 GOTO 语句 ? 

14.3 用 True BASIC 编写 程序 ， 解 一 元 二 次 方程 :， Ax? 十 Bx 十 C 一 0。A， В, СН 
А. 

14.4 用 True BASIC 编写 程序 求 3— 100 之 间 的 全 部 素数 。 

14.5 H True BASIC 编写 程序 求 0) = z 一 站 =0 的 根 。 分 别 用 选 代 法 、 豆 截 法 、 牛 顿 
迁 代 法 、 二 分 法 解 。 用 函数 或 子 程序 分 别 实现 以 上 几 种 运算 。 

14.6 用 True BASIC 编程 序 画 5 个 同心 圆 ， 它 们 的 颜色 不 断 变换 。 

14.7 JF True BASIC 画 一 个 你 自己 设计 的 彩色 图 案 〈 用 PICTURE 子 程序 ) 。 


RHN 121-000 аР 95 7 (02с0 роз иш gf с5а—-ва1-(9рэ osh R 


bad. 9409) SSZ - ezz с í вз 一 560 ¿ 
а vse ' zzz - oi | а ти v v60 < 
z сг I тес с 681 £ iSt 1 t60 = 
ч ¿s - о = 89: 了 эя \ 260 ` 
人 192 и ez = Im + SSi ' к 1 160 B 
- чї _ в П 981 п Ы гг z 060 : 
. бг r tic Ë s81 ° ^ шщ А 680 в 
а + oz - ы! A x ош х 880 8 
&& + аш ы " ^ M, @ n 
яа а "г + Ы оз! a A 900 9 
Soz Е сы Ë ° бы n п 580 5 
` uz 上 ° эз 1 1 wo ‚ 
7 14 1 ° т * 8 eg È 
+ ог a ж gp t ч zeo z 
= 606 Ы Sri ° ° 180 1 
= бог 3 bb. 4 4 озо ° 
- в Y Ev: ° ° 0 + 
* 902 v АД М N #0 ` 
= soz ' ivt м w “Чч 
ki soz 1 Ша л эй 
а А a kU * 
= f r мо ` 
a ! Ц ий { 
` ч н 7) } 
t * ° to А 
4 + з oro Li 
+ . 3 e% % 
- P a 90 $ 
1 ә 5 190 + 
2 4 a 990 ” 
- Ы v 90 1 
` ` ә wo | azg 


кє 


{umop 295312) 
idn sosna) 


FERRY ПОБУ HENE IE 
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HRI 
25-2 


MS BASIC SMR% KR 


ж % 


J ` е 


自动 产生 行 号 

шд И Ге. УШ. АЫ 
р т БЕ ЫЗ 
ТЕЕ. ВАРТЕКС 

TRE 

826) E Fir 

W. SBS ERER 

列 出 文件 目录 

删除 文件 

Mon PA т 

打印 程序 消 单 

BA- MEE 

将 保存 在 软盘 上 的 程 宝 和 在 内 存 中 的 程序 拼接 起 来 
将 软盘 文件 改 涯 

清除 内 存 中 的 当前 程 主 和 变量 

重 编程 序 行 号 

ТЕБА В, 

运行 程序 

将 内 存 中 当前 径 享 哄 存 在 盘 上 

HER BASIC, XAA XH. ile DOS 
ЖАКЕ 

KARERE 
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2. о - 览 表 
А. 非 输入 /输出 第 名 


*= $y [2] 能 

CALL JELRE G RUF 
CHAIN REUT. WH TETERE НЕЕ 
COM (n) ON;OFF/STOP AAAA RIE 
COMMON Е оараг ERE 
DATE $ ШЙ 
DEF FN Га ar за 
DEF ppe Ж АЗЕ ЛЕН, туре E INT. SNG. DBL. STR 之 ~， 
DEF SEC E YA КЕИ ЫП) 
DEFUSR ж Z Br i TE ЗЕМ ЧААС 
D:M н W: HJ А КЕЧА т. = J 
END tk FEIT 
ERASE | AEREE 
ERROR 显示 基 一 霄 说 代 到 的 信息 
FOR WB B.T 
GDSUB єр 
вото EREB 
IE THEN" ELSE WP 

ONZOFE/LIST | ПЖ, HED 或 关闭 显示 软 按键 
KEY (n; ОМИ 
LET 
mms 将 -个 字 入 理 中 的 一 闻 分 《-< 毕 ) ТАНЕ 
MOTOR i Hemis 
NEXT ан 
ON COM (n) GOSUB жайна ЫА АДК TEF 
ON ERROR GOTO 525422 
ON GOSCY BM TE 
ON=GOTO 控制 转移 
ON KEY (э) GOSUB а Н СИ РЕН НЕР 
ON PEN GOSU3 чуч FF 
ON STRIG (n) GOSUB BAREA ROR EY 
OPTION BASE RA FER 

ON/OFF/STOP BEEE 


POKE 

RANDOMIZE 

REM 

RESTORE 

RESUME 

RETURN 

sTOP 

STRIG ОМ/ОРЕ 

STRIG (ni ON/OFF/STOP 


Шара ЕЧ ЕЕ жер ЕНЕ 
азе еч 
в 

AEREE 

lh КЕ 
M.T Fa. 
BEEPER 

ЮЕ atasi ЭДЕ 

Шар PE n 的 功能 


SWaP HERLAH 

TIME $ BEREIT 

War BEDIA a 
WEND WHILE 循环 的 出 中 
WHILE 当 荣 忻 为 真 时 执行 钉 半 


B、 输 人 /输出 语句 


语 Ы 功 能 
BEEP 喇叭 发 声 
CIRCLE | 
CLOSE 关闭 文件 
as йш 
COLOR Гаа 
DATA 导数 据 区 数据 
DRAW RUE 
FELD BENU КҮРТ KRAE E Rp 5 t 
GET# 这 随机 文件 记录 
GET ARA RRRA E 
INPUT 键盘 答 入 
INPUT# ЁН НЕЧЕ 
LINE EBE EE H k 
LINE INPUT # MAHE 个 完整 行 
LINE INPUT 从 键盘 读 -个 完整 行 
LPRINT 从 宽 行 打印 机 输出 
LPRINT USING 格式 打印 输出 


LSET 

OPEN 

ОРЕМ “COM--.” 
OUT 

PAINT 

PLAY 

PRINT 

PRINT USING 
PRINT# 
PRINT# USING 
PRESET 

PSET 

PUTH 

PUT 

READ 

RSET 
SCREEN 
SOUND 
WIDTH 
WRITE 
WRITE H 


给 随机 文件 缓冲 区 申 变 量 按 左 对 齐 赋 位 
打开 数据 文件 

拉 开 通讯 文件 

RREI 

屏幕 着 色 

ЖЕЖ 

MEET 

RER 

КОЕ 

ае НИНЕ XPF 

ЕЕЕ ТОЛ @ А — TA 

TRR БШ Pea, MAE EERE ВГ G m s 
向 随机 文件 写 数据 

给 屏幕 送 绘图 信息 

从 数据 区 读数 

Б ШЕЕ РСА ЕТТТ 
ЕЕ ЖЖ ЕЗ 

HRE 

ENEE 

在 屏息 上 和 给 出 

输出 数据 到 文件 
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A ”算术 函数 
а 数 功 能 A К 功 能 
ABS OO 取 x 的 哆 对 信 INT 00) 不 大 于 x R AWA 
АТМ (X) БЛЕР LOG (X> ах 
CDBL (X) ` 转换 成 双 精 度 RND (X) 产生 -个 《6，1) (АНБ 
CNT (X> 续 换 x 成 整 型 SON OO 取 x 的 符号 
COS ¿(X> COSx SIN (X) sing 
CSNG (Хх) 转换 x 成 单 精度 вон 00) М. 
EXP (X) = TAN (Х) тапк 
FIX (Х› хеш 
В. SPARRMAN 
СА * 功 能 


ASC (X$) 


CVI X$ 3, CVS (X$), CVD (X$) 


INSTR (п, X$, Y$) 
LEN (XS) 
YAL (X$) 


取 XS 中 第 一 个 字符 前 ASCI 码 


атт 
RL x$ # Y$ ОЕ 
X$ ЕШ 
将 XS ЖН 


ЖЕП X fra К ЖЕЛИН ӨЛЕШЕ PREE, nH 


c ”输入 、 输 出 和 其 它 用 途 的 函数 


жа М ЕЛ k _ 
CSRLIN кЖк B 4 gt 
EOF (f) 指示 文件 了 的 文件 结束 状态 
IRL 皮 最 后 产生 错误 的 行 号 
ERR 事 最 后 一 次 错误 的 错误 代码 
FRE (X $) SAATH КЫ 
INP (n) Вп n 读 一 个 字 节 
LOC (0 жне 
LOF (p 文件 长 度 《128 0083808; 
LPOS (n) 打 白 机 的 打印 六 位 置 
PEERK Сл) РГЕН п у = r h 
РЕМ (n) EE 
PONT (X, Y: BA (Х, Y) HAE 
POS (а) ARIER 
SCREEN (Aj, 17; 得 到 指定 位 置 上 的 字符 的 AScI 码 
STICK (n) TREA EHR 
STRIG (a) ВК 
USR (X) МНИ ТЕ, ВАХ 
VARPTR (X) RXR x 在 内 存 中 地 直 
VARPTR 19?) kE ЕЧЕН 
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о AR СЕНА) 


а ж 功 能 
CHP$ (n) { RASCI А n 00 4 
LEFT$ (X$. n) Rx $ 2394 a 个 宇 符 
MID$ (X$, n, m) 取 X 有 中 第 n ТЕ m 个 字符 
RIGHT$ (X$, n) J X $ {г п Р 
SPACE$ (n) 得 n 个 空格 的 申 
SIRING$ (л, m) J АЗСИ RA m ВЧ n 次 
STRING $ ín, X$) OX $ 00 8— п 


Е ”输入 、 输 出 和 其 它 类 型 


я ® _ 3 能 
DATE $ 到 系统 日 期 
НЕХ $ (n) ， 把 " 转换 成 十 六 进 制 的 字符 
INKEY $ 从 键盘 读 一 个 字符 
INPUT$ (n, #0) 从 文件 + 该 n 个 字符 
MKI$ (x). MKS$ (x), MKD$ (x) жо, ФИН. TOR ERE BURRE Н K rE ‚Ж 
OT$ (а) 将 n 转换 成 八进制 字 唐 
SPC$ (л) 打印 nm 个 空格 
XTR б) 将 x 转换 成 字 串 
ТАВ (n) 在 第 nm 位 置 上 开始 打印 
TIME $ 取 系 统 时 间 
YARPTPS (v) 取 变 量 类 型 、 地 址 
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